在perl参数中使用bash变量
在Perl参数中使用Bash变量是指在Perl脚本中使用Bash环境中定义的变量。这可以通过在Perl脚本中调用Bash命令来实现。下面是一个示例：
#!/usr/bin/perl
# 使用Bash变量
my $bash_variable = `echo \$BASH_VARIABLE`;
# 打印Bash变量的值
print "Bash变量的值是：$bash_variable\n";在上面的示例中，我们使用了反引号（`）来执行Bash命令，并将其结果赋值给Perl变量$bash_variable。在Bash命令中，我们使用$BASH_VARIABLE来引用Bash环境中的变量。
需要注意的是，使用Bash变量可能会导致安全性问题，因为它依赖于外部环境的设置。为了避免潜在的安全风险，建议在使用Bash变量之前对其进行验证和过滤。
推荐的腾讯云相关产品：腾讯云服务器（CVM）
- 链接地址：https://cloud.tencent.com/product/cvm
腾讯云服务器（CVM）是腾讯云提供的一种弹性计算服务，可为用户提供安全、可靠、高性能的云服务器。用户可以根据自己的需求选择不同配置的云服务器，并根据实际情况进行弹性调整。腾讯云服务器支持多种操作系统和应用程序，可满足各种不同的业务需求。
优势：
- 弹性扩展：可以根据业务需求随时增加或减少云服务器的数量和配置。
- 可靠性高：腾讯云服务器采用高可靠的硬件设备和数据冗余机制，保证业务的稳定运行。
- 安全性强：腾讯云服务器提供多层次的安全防护，包括网络隔离、DDoS防护、数据加密等，保障用户数据的安全。
- 灵活性好：腾讯云服务器支持多种操作系统和应用程序，用户可以根据自己的需求进行定制和配置。
应用场景：
- 网站和应用程序托管：腾讯云服务器可以用于托管各种网站和应用程序，提供稳定可靠的服务。
- 数据库服务器：腾讯云服务器可以作为数据库服务器，提供高性能和可靠性的数据库服务。
- 游戏服务器：腾讯云服务器可以用于托管各种在线游戏，提供稳定流畅的游戏体验。
- 大数据处理：腾讯云服务器可以用于大数据处理和分析，提供高性能和可扩展性。
总结：在Perl参数中使用Bash变量可以通过调用Bash命令来实现，但需要注意安全性问题。腾讯云服务器（CVM）是腾讯云提供的一种弹性计算服务，适用于各种不同的业务需求。
相关·内容
我在Bash提示符下运行命令：
bash-3.2$ x=12
bash-3.2$ echo $x
12
bash-3.2$ perl -e '$age=$x; print "Age = $age\n"'
Age =
bash-3.2$
我不会把年龄/号码打印出来的！如何在perl命令中导入unix变量.？
浏览 6提问于2017-05-18得票数 1
回答已采纳
2回答
我想在列表中grep一个段落--使用2个bash变量中的2个regexp的文件，下面是我输入的内容：
$ startRegExp=function.toto
$ endRegExp=^}
$ set -x
$ perl -ne "print '\$ARGV:\$_' if /$startRegExp/ ... /$endRegExp/" .bash_functions*
但我得到的是：
+ perl -ne 'print '\''$ARGV:$_'\'' if /function.locate/ ... /
浏览 0提问于2019-05-24得票数 0
回答已采纳
2回答
我可以从Unix shell调用Perl脚本吗？例如，我有如下形式的bash脚本：
#!/bin/sh
echo This is bash
i=12
echo $i
perl <<__HERE__
print "This is perl\n";
my \$i = $i;
print ++\$i . "\n";
echo This is bash again
echo $i
上面只是一个例子。
可以将变量从bash传递到脚本吗？希望我正确和恰当地表达了自己。我需要调用Perl脚本，它将从bash脚本中获取值并使用它们，然后返回处理后的结果。
浏览 0提问于2015-05-19得票数 1
2回答
我想将bash脚本嵌入到perl脚本中。我想通过从perl脚本中获取一些变量来运行我的bash脚本。一旦获得变量，bash脚本就会接管并尝试输出在其中创建的文件。
如何将perl脚本变量传递给我的bash脚本？
我不知道perl，但从我在Google中读到的内容来看，我可以将我的bash脚本嵌入为
system("get_files.cmd -yr ${year}");
其中我的bash脚本是get_files.cmd。
浏览 1提问于2012-10-16得票数 0
回答已采纳
我有一个字符串，里面有换行符和奇数字符，比如引号、逗号、反斜杠等等(它可能很长，所以转义字符并不简单)。
例如
STRING_FROM_BASH="blah2 => '/blah',"
perl -0777 -i.original -pe "s/###matchingchars/$STRING_FROM_BASH/igs" myfile
我犯了个错误
Having no space between pattern and following word is deprecated at -e line 1
我认为这是因为它插值bash字符串
浏览 1提问于2015-06-23得票数 2
回答已采纳
我正在调试一个由bash脚本启动的Perl程序。因为Perl脚本由大量的Perl模块组成，并且需要提供极其复杂的选项，所以这里的bash包装器是绝对必要的。
由于这个限制，在我的例子中，我不能使用Perl调试器，我想这是最简单的方法。然后我转向老的good printf。但是，即使我在不同的模块中将printf从一个位置添加到另一个位置，实际上也不会将任何内容打印到启动bash包装器的终端。
所以，我希望您首先解释为什么我不能从内部Perl脚本获得任何打印信息，以及如何解决我的问题，在这种情况下调试Perl程序。
浏览 0提问于2011-11-27得票数 0
回答已采纳
通常，我会调用Perl并在bash脚本中提供所需的参数，只需使用：
perl script.pl arg1
但是，在有些情况下，我希望将perl脚本目录和参数存储在bash变量中：
PERLDIR = "/example/directory/script.pl"
ARG1 = "40"
当试图使用以下方法调用perl脚本时：
perl "$PERLDIR"
但是，当试图提供参数时，它是有效的，但我不确定要使用的语法。如果我用：
perl "$PERLDIR $ARG1" --它将尝试打开目录：
/example/director
浏览 5提问于2016-05-04得票数 2
回答已采纳
我希望用包含$符号的其他字符串以及bash变量的值替换文件中包含$符号的字符串。该文件包含字符串，如下所示。
$Rev: 12345 $ $Author: 12345 $
假设我有一个名为i的bash变量，它包含字符串foo。我现在想用$Rev: 12345 $代替$Rev: $i $。我尝试使用sed，但是由于sed不支持非贪婪的regex，所以我改用perl。当我不使用任何bash变量时，Perl工作得很好。
# cat file
$Rev: 12345 $ $Author: 12345 $
# perl -p -i -e 's;\$Rev:.*?\$;\$Rev: test \$
浏览 8提问于2022-09-29得票数 0
回答已采纳
我正在使用系统调用来执行一些任务
system('myframework mycode');
但它会抱怨缺少环境变量。这些环境变量是在我的bash shell中设置的(我在其中运行Perl代码)。
我做错了什么？
system调用是否会创建一个全新的shell (不带环境变量设置)？我该如何避免这种情况呢？
浏览 3提问于2010-11-19得票数 11
回答已采纳
1回答
我正在尝试使用位于我自己目录中的几个perl模块。我读到我需要在这个表格中添加“导出”命令-
export PERL5LIB=PERL5LIB:/location/of/personal/modules
然而，我在bash中这样做，并且有一次我在修改后尝试源bash，我开始得到"if: ExpressionSyntax“错误。
告诉我，这意味着我的shell不是bash。我询问回波$SHELL，它给了我tcsh (我猜是C外壳)
我打开tcsh是为了像上面写的那样添加"export“命令，但是它完全是空白的，现在我不知道如何将非标准目录添加到@INC。
任何帮助都是非常感谢的。
浏览 2提问于2015-03-23得票数 1
回答已采纳
我有一系列的perl脚本想要在unix系统上一个接一个地运行。这是什么类型的文件/我可以在文档中引用它吗？BASH、BATCH、Shell脚本文件？
任何帮助都将不胜感激。
浏览 0提问于2013-03-15得票数 2
回答已采纳
如何将[RUN_ABOVE_PERL_SORTING_SCRIPT_HERE]替换为运行存储在bash变量中的的东西？
#!/usr/bin/env bash
# The perl script to sort getfacl output:
# https://github.com/philips/acl/blob/master/test/sort-getfacl-output
find /etc -name .git -prune -o -print | xargs getfacl -peL | [RUN_ABOVE_PERL_SORTING_SCRIPT_HERE] > /et
浏览 0提问于2020-02-09得票数 0
#!/usr/bin/env bash
n=3
awk "BEGIN {printf \"%.\"$n\"f\", (2*2.22222222)}"
结果: 4.444
但是：
perl -e "printf \"%.3f\", (2*2.22222222)"
如何在perl中用n替换3？
浏览 0提问于2022-08-09得票数 0
1回答
背景：--我有一个相当简单的bash脚本，用于生成CSV日志文件。作为bash脚本的一部分，我使用netcat在网络上轮询其他设备。netcat命令返回一个信息流，我可以将该信息流传输到grep命令中，以获得CSV文件中所需的某些值。我将返回值从grep保存到bash变量中，然后在脚本的末尾将所有保存的bash变量写入CSV文件。(很简单)
我想要做的改变是，对于我想要保存的每一条信息，我必须发出的netcat命令的数量。使用每个发出的netcat命令，我都会返回所有可能的值(因此每次返回相同的数据，在网络上都是累赘的)。因此，我只想使用netcat一次，并尽可能多地解析返回值，因为我需要创建
浏览 4提问于2014-02-06得票数 0
回答已采纳
这是我在这里的第一个帖子，所以请容忍我…
在完全配置了我的.bash_aliases文件之后，我发现了.ssh/config的惊人功能，由于我在编程方面相当差劲，我一直在寻找一种很好的方法来将bash_aliases文件中的连接详细信息解析到~/.ssh/config文件中。
所以，从细节上讲，我的bash_aliases看起来像这样：
alias serverA='ssh -i ~/.ssh/serverA.key -o $SRVR_ALV user@serverAhostname'
alias serverB='ssh -i ~/.ssh/serverB.key -
浏览 0提问于2012-12-01得票数 2
回答已采纳
2回答
我从终端手动运行脚本，如下所示：
# perl renew.pl 2014-06-09 data.xml
其中2014-06-09是今天的日期，data.xml是脚本更新的文件.
我想用cron运行这个脚本，所以我需要自动插入当前日期。我试过
# perl renew.pl date +"%Y/%m/%d" data.xml <br>
or <br>
# perl renew.pl 'date +"%Y/%m/%d"' data.xml<br>
or <br>
# TODAY=`date '
浏览 2提问于2014-06-09得票数 1
回答已采纳
我正在尝试使用Bash和Perl的组合来修改一些脚本。问题是Perl认为$index是它自己的变量，这个变量从来没有定义过：
for index in {1..25}; do
perl -pi -e 's/\d+/$index/' cmd_$index.sh;
done
有没有办法让$index在Perl一行程序中穿上它的Bash斗篷？
浏览 2提问于2012-01-23得票数 11
回答已采纳
我试图用shell中与其匹配的bash变量的值替换字符串中由字符分隔的子字符串。
到目前为止，我已经尝试过，但没有成功：
varone="noob"
vartwo="trivial"
echo "my {varone} and {vartwo} question" | perl -pe 's|(.*){(\w+)}(.*)|${1}'$(echo "${'${2}'}")'${3}|g'
但我明白：
bash: ${'${2}'}: bad substitution
浏览 4提问于2019-09-25得票数 3
回答已采纳
3回答
我不确定进口是不是正确的用词。我是Perl和Bash的初学者。我在Bash上设置了一个变量，所以当我这样做时：
echo $PRDIR
它打印一个字符串(它是一个目录名)
我想将该字符串导入到Perl中，但我不知道如何做到这一点。我试过：
$varex = system("$PRDIR");
print "$varex";
而且还
$varex = system("echo $PRDIR");
print "$varex";
但这不起作用(我理解最后一个，它打印"0“，因为这是echo的返回值)。我也尝试过将stdout重
浏览 6提问于2013-10-13得票数 2
回答已采纳
是否可以在bash脚本中像下面这样编写perl脚本？
这不起作用(仅举个例子)
#/bin/bash
perl <<EOF
while(<>) {
chomp;
print "xxx: $_\n";
}
EOF
这里有一些很好的方法如何将perl脚本嵌入到bash脚本中吗？希望从bash脚本中运行perl脚本，而不希望将其放入外部文件。
浏览 1提问于2013-07-19得票数 20
回答已采纳
3回答
这个问题我已经问了很久了。在我使用bash脚本的工作中，有很多情况下，我必须将文件路径保存到变量中，以便在以后的命令中使用。我们使用带有后缀T1w、T2w和掩码的文件，在许多情况下我们有一个优先文件(例如T1ws)，但在没有它们的情况下，我们将使用另一个文件(例如T2w)。我通常使用以下bash语法搜索适当的文件并将其保存到变量(假设我在当前目录中搜索)：
if [ -f xxx_T1w ]; then
var1=xxx_T1w
elif [ -f xxx_T2w ]; then
var1=xxx_T2w
fi
所以很好，它可以工作，但我一直很好奇bash中是否有一种编码方式，比如:如
浏览 1提问于2020-09-25得票数 4
回答已采纳
我需要一些关于perl脚本的快速建议。我创建了一个脚本，它基本上调用了其他perl脚本和其中的许多其他shell脚本。我所面临的问题，仅仅是通过设置一个环境变量来使其在一个通用级别上运行。
这是在linux /CentOS上.
所以我将我的变量添加到.bash_profile中，如果我先手动源文件，然后运行我的perl脚本，它就可以正常工作了！这是，好的，但我想脚本自动化这个部分，而不是需要额外的，手工采购步骤。
我的剧本是这样的..。总之
#!/usr/bin/perl
use warnings;
use strict;
`/bin/bash ~/.bash_profile`;
blah
浏览 1提问于2014-05-29得票数 2
回答已采纳
1回答
我知道如何输送
echo a b | xargs -l bash -c '1:$0 2:$1'
我知道如何将参数数组从xargs传递到perl模块的子例程：
echo a b | xargs --replace={} perl -I/home/me/module.pm -Mme -e 'me::someSub("{}")'
但是，我似乎无法使用这些美元引用(以满足me::someSub签名)将多个参数传递给perl：
echo a b | xargs -l perl -e 'print("$0 $1")'
只是指纹
浏览 0提问于2019-05-18得票数 1
回答已采纳
我正在学习Perl和Shell脚本，我面临的挑战是编写一个以csv文件为参数的shell脚本，然后让该shell脚本运行我的perl脚本(test.pl)。我似乎无法理解正确的语法，而且每次都会终止，因为它会挂起我的终端。
例如，shell脚本是test.sh
#/bin/bash
./test.pl $i`
在我的终端上，我把打字写出来。
test.sh testfile.csv
最终，我希望我的perl脚本读取测试文件，以便它能够运行。
浏览 7提问于2019-11-28得票数 0
回答已采纳
1回答
问题：
#!/bin/bash
x=$1
perl -lne 'print "$x is $_"' $1
如何在我的第4行中计算$1，每次通过perl-oneliner打印时，打印单引号内的$1？
浏览 0提问于2020-05-02得票数 1
回答已采纳
我有一个脚本来替换各种文件中的特定电子邮件地址。替换地址是脚本的第一个参数：
#!/bin/bash
perl -pi -e s/'name\@domain\.org'/$1/ file-list
这是行不通的，因为$1中的$1字符是由perl替换的。有一个简单的解决办法吗？运行subst foo\@bar.com、subst foo\\@bar.com、subst "foo@bar.com"等脚本不起作用。是否有一个sed脚本可以更容易地处理这个问题？
浏览 11提问于2022-03-16得票数 0
回答已采纳
1回答
我有一个包含唯一内容(数组)的bash脚本，例如
bash_arrray.sh
locDbList=(default default_test)
我需要在Perl脚本中使用这个数组。
是否可以以某种方式将数组定义从bash文件加载到Perl中？
如果不是，那么我如何定义一个具有相同数组的Perl文件并将其加载到另一个Perl脚本中呢？
在第二种情况下：
perl_arrray.pl
second_perl_file.sh ( load the perl_array in here ).
最后一种选择是将数组信息放入一种我可以从Perl和bash中读取的格式，例如ini文件
浏览 0提问于2013-01-17得票数 0
回答已采纳
6回答
假设您有一个perl脚本"foobar.pl“，它将以下内容输出到stdout
date -R
您希望以独立bash命令的形式运行perl脚本输出的任何内容(不要担心安全问题，因为这是在可信环境中运行的)。
如何让bash将其识别为独立命令？
我试过使用xargs，但这似乎只想将参数传递给预定义的命令。
我希望perl脚本能够输出任意命令。
$command = 'date -R'
system($command); ## in the perl script
以上内容不起作用，因为我希望它在现有的cygwin环境中运行.
foobar.pl | xargs bash
浏览 9提问于2009-04-06得票数 6
回答已采纳
在bash脚本中，如果value = 0，如何执行perl脚本、获得输出并退出？另外，在perl脚本中，我如何返回值，是直接返回还是打印？
浏览 1提问于2011-04-16得票数 2
回答已采纳
我有以下问题：
我尝试通过cygwin从windows调度程序启动perl脚本。
我执行的步骤是:使用perl脚本的参数调用process.bat中的bash文件
症状:如果我直接从cygwin调用"perl scriptpath“，如果我用bash从windows cmd调用脚本，它就不会工作。
命令: C:\cygwin\bin\bash.exe --login /cygdrive/c/scripts/testscript.pl它输出以下内容：
Line 3: use: command not found
Line 4: use: command not found
Can'
浏览 16提问于2013-06-21得票数 2
回答已采纳
我对下面的脚本有一些问题。
proc checkUser {userip} {
set search "show users | include "
set search_cmd [concat $search $userip]
exp_send "$search_cmd\r"
expect {
-re "Vi.*" {
set oui "uei.opennms.org/services/passiveServiceStatus"
浏览 0提问于2013-01-08得票数 2
回答已采纳
我只想知道如何将设置为bash脚本的变量发送到Perl脚本。例如
巴什脚本
#!/bin/bash
var="bob"
perl perlscript.pl
return 0
因此，当perlscript启动时，我希望在Perl脚本中有bob。
#!/usr/bi/perl -w
print ""
浏览 2提问于2015-04-21得票数 0
回答已采纳
这是我关于堆栈溢出的第一篇文章，如果我错过了一些重要的东西，请原谅我。我现在正忙着解决这个问题。目标是根据我用find编写的文件列表动态替换端口号。这些文件中的所有端口，从数字"4“开始，有5位数。
现在，棘手的部分，我只替换数字#2和#3，并保留位置1，4和5。
old port in file: 40380, 40381
new port in file: 41580, 40381
我正在编写Sun Solaris 5.10，因此我更喜欢用于内联替换的perl
最后一个关键问题是:我如何将$1 (组1) + $PIN_PINNO + $3 (组3)合并为: 41580
NEW_PI
浏览 5提问于2017-09-21得票数 2
这个问题很简单，但我还没有在谷歌上找到答案。
我如何在perl中运行类似这样的东西呢？
[$] VARIABLE=foo ./script.sh
我有一个perl脚本(例如，Nvidia Cuda安装程序)，其中包含硬编码的变量，但我希望在运行脚本时设置这些变量，而不是编辑脚本。
在bash中，它与上面发布的类似，但我不知道如何在perl上使用它。
有可能做到这一点吗？
欢迎光临。
编辑:为了说明:这是install-linux.pl脚本的一个代码片段：
sub can_add_for_all_users()
{
my $filename = "/usr/share/appli
浏览 5提问于2016-07-17得票数 0
好的，下面是bash命令，我想发送一个变量到
perl -pi -e 's/ : /:/g' /opt/lampp/htdocs/"variable needs to go here"
然后，我的变量在php中是
$filename
如何编辑bash脚本以接受变量，以及如何传递变量并从php执行bash，任何帮助都将不胜感激。我只是不知道如何使bash准备好接受一个变量，以及如何使php发送它并执行这个脚本。
浏览 3提问于2013-07-25得票数 0
回答已采纳
全,
尽管我对bash感到反感，但我想我应该试一试zsh，这似乎是很好的说法。所以，我马上就撞上了这堵砖墙：
function z
{
var="ls -l"
"$var"
}
在将执行'ls -l‘的bash中，在zsh中，它会给我"command not found: ls -l“，因为我对zsh非常陌生，我不知道它和bash之间可能会有什么不同，从而导致上述情况。
浏览 5提问于2011-12-20得票数 1
回答已采纳
6回答
我注意到，当我在perl中使用反号时，命令是使用sh而不是bash执行的，这给我带来了一些问题。
如何更改该行为，以便perl使用bash？
PS。我尝试运行的命令是：
paste filename <(cut -d \" \" -f 2 filename2 | grep -v mean) >> filename3
浏览 6提问于2010-07-31得票数 7
回答已采纳
对于Bash脚本中的以下管道：
Bash command | perl -ne 'single line perl command' | Another Bash command
Perl命令只能是单行。如果我想要编写更复杂的多行Perl命令呢？我是否可以为每个perl命令行使用多个"-e“选项，例如：
perl -n -e 'command line 1' -e 'command line 2' -e 'command line 3'
或者我可以对多行Perl代码使用"Here Document“(在这种情况下，
浏览 0提问于2012-02-08得票数 1
回答已采纳
1回答
我试图在我的Perl程序中运行一个Bash命令。然而，Perl似乎将我的Bash $PWD环境变量混淆为Perl变量。
我怎么才能把它读成字符串呢？
这就是我想要运行的
my $path = /first/path;
`ln -s $path $PWD/second/path`
这些后排跑到了巴什的第二行。使用System()会产生同样的问题。
有什么想法吗？
浏览 4提问于2017-05-25得票数 3
回答已采纳
3回答
我在shell中设置了一个变量：
-bash-3.00$ echo $source_repl
source ../setup_simple.tcl
然后，我尝试将以字符串"package require“开头的文件中的一行替换为变量字符串(请注意，双引号是使用变量替换的sed的方法)。首先，我尝试了直接替换(不转义变量中的$)：
-bash-3.00$ sed -e "s/package require IxLoad.*/$source_repl/g" smtp_tput191Mb.tcl > tmpwatch.tcl
sed: -e expression #1,
浏览 2提问于2011-01-07得票数 0
回答已采纳
4回答
我有很多Perl脚本需要更新到一致的版本，目前有不同的版本和标志。所有这些语句都位于脚本的第一行。我在这里不太走运，显然是想使用sed，但是有没有更好的东西呢？
需要编辑的示例行
#!/opt/local/bin/perl5
我尝试了bash脚本，如下所示，但它不适用于我。
#!/bin/bash
echo "Changing Perl headers in the following..."
for file in $(ls $1*.pl)
do
echo $file
sed 's/#!\/opt\/local/bin\/perl5/#
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
