如何在Perl脚本中调用shell命令？
在Perl脚本中调用shell命令可以使用Perl内置的system函数或反引号操作符。
- 使用system函数： system函数可以执行指定的shell命令，并返回命令执行的状态码。它的语法如下：my $status = system("shell命令");示例：my $status = system("ls -l"); # 执行ls -l命令 if ($status == 0) { print "命令执行成功\n"; } else { print "命令执行失败\n"; }
- 使用反引号操作符： 反引号操作符可以将shell命令的输出捕获到一个字符串中。它的语法如下：my $output = `shell命令`;示例：my $output = `ls -l`; # 执行ls -l命令并将输出保存到$output变量中 print $output;
无论是使用system函数还是反引号操作符，都可以在Perl脚本中方便地调用shell命令。但需要注意的是，使用这些方法执行shell命令可能存在安全风险，因此在实际应用中应谨慎使用，并对输入进行合适的验证和过滤，以防止命令注入等安全问题的发生。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云产品：https://cloud.tencent.com/product
- 云服务器 CVM：https://cloud.tencent.com/product/cvm
- 云函数 SCF：https://cloud.tencent.com/product/scf
- 云数据库 MySQL：https://cloud.tencent.com/product/cdb_mysql
- 云存储 COS：https://cloud.tencent.com/product/cos
- 人工智能 AI：https://cloud.tencent.com/product/ai
- 物联网 IoT：https://cloud.tencent.com/product/iot
- 区块链 BaaS：https://cloud.tencent.com/product/baas
- 元宇宙 TKE：https://cloud.tencent.com/product/tke
相关·内容
如果我从命令提示符(c:\windows\system32\cmd.exe)运行Perl脚本，如何在脚本执行完毕后退出命令提示符。
我在Perl脚本中尝试了system("exit 0")，但没有退出运行Perl脚本的cmd prompt shell。
我还在Perl脚本中尝试了exit;命令，但也不起作用。
浏览 8提问于2010-01-12得票数 0
回答已采纳
我有一个脚本，可以同时打开不同的文件。
这里的问题是，当我在bash中定义的别名(指向/home/user1 1/Software/nc)上运行system()时，perl告诉我它无法执行别名，因为当前位置没有文件/目录。我知道别名可以工作，因为当我在shell中直接调用它时，它会很好地打开。
有趣的是，我可以在我的脚本中完成系统(“firefox”)，但不能使用别名。如何在这个脚本中使用这个别名而不破坏它？
浏览 2提问于2014-02-17得票数 3
回答已采纳
我不确定这个标题是否真的对这个问题有意义。我的问题很简单，我想写一个perl脚本来改变我当前的目录，并希望在调用perl脚本后可以保留结果。脚本如下所示：
if ($#ARGV != 0) {
print "usage: mycd <dir symbol>";
exit -1;
}
my $dn = shift @ARGV;
if ($dn eq "kite") {
my $cl = `cd ./private`;
print $cl."\n";
}
else {
print "
浏览 0提问于2013-09-13得票数 0
1回答
我正在为Perl运行ptkdb调试器。我正在使用system()；函数从脚本中运行脚本。但是我不可能进入系统调用，调试器只是跳过它。如何让调试器实际调试系统调用中正在发生的事情？
浏览 2提问于2011-04-22得票数 1
6回答
我有一个shell脚本，其中包含一个shell变量列表，该脚本在进入编程环境之前执行。
我想使用Perl脚本进入编程环境：
system("environment_defaults.sh");
system("obe");
但是当我进入环境时，变量并没有被设置。
浏览 0提问于2010-06-04得票数 5
我正在尝试从shell脚本调用perl脚本，代码如下所示...
shell脚本test_sh
#Call the script
test2.pl ${PARTITION_ID} ${VNG_USER} ${VNG_PASSWORD} ${VNG_INSTANCE}
if [ $? -ne 0 ]
then
OP1ExitStatus -6
fi
执行过程中出现以下错误消息：
./test_sh[142]: test2.pl: not found
Failed in test_sh
授予这两个文件的权限都是755。
但是，当我通过传递所有参数直接从命令行调用test2.pl时，它会
浏览 0提问于2011-04-01得票数 0
3回答
我想知道是否有人能向我解释什么是perl脚本，以及何时使用perl脚本和何时使用bash脚本。
我已经搜索过很多次了，但我似乎找不到一个我能理解的答案。有人能用非常简单的术语来解释它吗，因为我在linux是个新手吗？
谢谢
浏览 0提问于2020-04-20得票数 -1
回答已采纳
我遇到了下面的例子。我试图谷歌，但找不到很多，所以我在这里张贴这个问题。
像这样执行perl脚本有什么好处？
在执行perl代码之后，如何使shell脚本像“普通”shell脚本一样工作呢？
下面是代码：
#!/bin/ksh
#! -*- perl -*-
eval 'exec $PERLLOCATION/bin/perl -x $0 ${1+"$@"} ;'
if 0;
print "hello world\n";
# how can I make it behave like a "normal" shel
浏览 2提问于2011-10-10得票数 1
回答已采纳
我正在尝试从Python运行一个Perl脚本。我知道，如果在终端中运行Perl脚本，并且希望编写Perl脚本的输出，我需要在> results.txt之后添加perl myCode.pl文件。这在终端中运行得很好，但是当我尝试用Python实现这个功能时，它就不起作用了。
这是密码：
import shlex
import subprocess
args_str = "perl myCode.pl > results.txt"
args = shlex.split(args_str)
subprocess.call(args)
尽管> results.txt
浏览 3提问于2015-03-25得票数 2
回答已采纳
4回答
我在linux上使用以下查询来获取服务器负载：
w | head -n 1 | awk '{print $12}'
现在，我希望通过perl脚本运行查询，并在浏览器中打印输出。我该怎么做？
浏览 0提问于2013-02-27得票数 0
回答已采纳
4回答
我有一个非常简单的任务。我有一个crontab，它每小时运行一个脚本。脚本的目的是简单地处理URL。
这就是我所拥有的。它不起作用。我有语法错误。
#!/usr/bin/perl
curl http://domain.com/page.html;
我已经多年没有在Perl中工作了，而且当我这么做的时候也不太熟练。
溶液
谢谢亚历克斯给我指明了正确的道路！
克隆塔
*/30 * * * * curl http://domain.com/path.html
浏览 1提问于2011-08-25得票数 11
回答已采纳
我有一个脚本，我将三个东西输出到一个文件中。我只想调用>操作符一次。有没有一种方法来描述一段指令？我应该使用函数吗？
#!/bin/sh
for i in $(ls src)
do
f=${i%.*}
echo 'first bit' > dist/$i.htm
perl myScriptThatOutputsSecondBit.pl >> dist/$i.htm
echo 'third bit' >> dist/$i.htm
done
浏览 0提问于2012-05-18得票数 1
回答已采纳
2回答
有没有办法捕捉perl脚本中白蚁屏幕上的文本。我知道有一些函数，如system、exec、backticks，但问题是它们从script.For ex执行命令：-在终端中我编写cd/ (或) ls，然后运行perl脚本，它将读取白蚁屏幕上所写的内容(在本例中，cd将捕获cd/ (或)ls--无论给白蚁哪个)。我提供了一个解决方案，通过将您在termianl上编写的命令作为命令行参数传递给脚本，但还有其他方法吗？
浏览 2提问于2014-10-14得票数 0
我需要编写一个调用c-shell脚本的perl脚本，该脚本又调用另一个perl脚本。我不能更改c-shell脚本或它调用的perl脚本。需要传递的参数之一是带空格的引号字符串。如果我使用反引号调用c-shell，并使用tcsh运行c-shell，则带引号的字符串将被视为单个实体。但是，如果我使用source运行c-shell，它就不是。
我觉得我需要使用'source‘，因为当用户从命令行调用c-shell时，它是通过c-shell的别名调用的。例如。
alias top "source top.csh"
想想这些..。
topmost.pl
#!/usr/bin/en
浏览 0提问于2018-02-03得票数 1
我正在尝试写一个Perl脚本，它可以更好地与KDE的kwrited一起工作，据我所知，它连接到一个，并将它通过KDE系统托盘收到的每一行通知都以"KDE write daemon“为标题。
不幸的是，它为每一行都做了一个单独的通知，所以它会在常规的旧上用多行消息来垃圾邮件系统托盘，并且在使用时，由于某种原因，它会切断消息的最后一行。单行消息也不存在了。
我还希望能让它能够在具有胖客户端的LAN上进行广播。在开始之前(当然，这将需要SSH )，我尝试创建一个无SSH的版本，以确保它可以工作。不幸的是，它没有：
perl ./write.pl "Testing 1 2 3"
浏览 1提问于2010-06-07得票数 0
回答已采纳
我想使用perl脚本弹出一个警告框。当出现错误时，我使用exit 0成功终止shell脚本，使用exit 1终止shell脚本。我想在perl脚本中捕获这个退出代码。根据值0或1，我想弹出一个警告框，分别显示成功或失败消息。
浏览 5提问于2013-08-26得票数 6
我正在写一个python脚本，我正在尝试调用perl脚本。perl脚本的输入是python参数。 row[i[k]]=re.sub(r"^_", "", row[i[k]])
row[i[k]]=re.sub(r"{", "[", row[i[k]])
row[i[k]]=re.sub(r"}", "]", row[i[k]])
row[i[0]]=re.sub(r"^_", "", row[i[0]])
row[i[0]]=re.sub(r"{&
浏览 24提问于2020-10-17得票数 0
在许多perl脚本(尤其是著名的CPAN发行版)中，我发现了以下代码：
eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
if 0; # not running under some shell
我想知道它是用来做什么的？
谢谢。
浏览 2提问于2012-02-05得票数 6
回答已采纳
我有一个Perl脚本，需要从干净的环境中调用它。我调用脚本的方式如下所示。
env -i test.pl
调用env -i后，某些环境变量将保持不变，例如PATH。但是，根据ENV哈希，PATH变量是空的。
以下是脚本(节录)：
#!/usr/bin/perl -w
system('echo "system: $PATH"');
print "perl hash: $ENV{'PATH'}\n";
这是我运行env -i test.pl时的输出
system: /usr/local/bin:/bin:/usr/bin
Use o
浏览 9提问于2014-03-19得票数 1
回答已采纳
最近，将 Perl放在Windows8.1机器上，发现exec在/bin/perl的git-bash中的行为与/c/strawberry/perl/bin/perl上的草莓不同。下面是我找到的非常简单的脚本(纯粹是在玩$PATH时偶然发现的)：
#!/usr/bin/env perl
my $comment = "@ARGV" || 'update';
exec "git status; git add -A . ; git status; git commit -m '$comment'; git push";
这在git-ba
浏览 3提问于2014-01-17得票数 0
我试图从主脚本中调用第二个脚本。当我使用capture在命令中传递参数时，它是工作的。但是，当我试图在capture函数中分别发送命令和参数时，它给了我一个错误，它找不到指定的文件。
第二脚本
#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
my $word= $ARGV[0];
my $crpyt = "$word crypted";
print "$crpyt\n";
my $decrypt = "$word decrypted";
print "$decrypt\n&
浏览 4提问于2019-09-19得票数 0
回答已采纳
我在shell脚本中的循环中运行Perl脚本：
while [ $currentDate -le $toDate ]; do
// code here...
exec /users/my_user/script_name $currentDate
// code here...
done
我已经确认了while-loop循环。但是，在运行一次Perl脚本之后，while-loop结束。
有人能解释一下这件事吗？
浏览 0提问于2013-06-19得票数 3
回答已采纳
4回答
如何在perl脚本中向终端发送命令？
例如，如果我想在控制台中运行命令mkdir $directory，我应该在perl脚本中输入什么？
浏览 3提问于2011-11-29得票数 1
回答已采纳
我正在寻找一种通过在远程Linux机器上运行的python脚本来运行windows应用程序的方法。Linux机器是一种服务器，它可以在自己的一端触发python脚本。我需要该python脚本能够在Windows7机器上执行命令(同时传递参数)。我想要的是安全成本上的简单性。这两台机器都在封闭的环境中工作，以太网连接。我认为实现它的最好方法是在我的Windows桌面上运行某种可以远程触发的执行服务器。
也许你有什么建议？
浏览 3提问于2014-10-15得票数 0
假设我有一个Perl脚本，即mytest.pl。我可以像cat mytest.pl | perl -e这样运行它吗？
我之所以这样做，是因为我有一个加密的perl脚本，我可以在c程序中解密它，我想在c程序中运行它。出于安全性考虑，我不想将解密后的脚本写回硬盘，所以我需要在内存中动态运行这个perl脚本。
这个问题与cat命令无关，我只想知道如何将perl脚本提供给标准输入，并让perl解释器运行它。
浏览 2提问于2009-10-14得票数 7
回答已采纳
我可以认为它会打开一个shell，执行参数(shell命令)并以标量形式返回结果。但是，在Perl脚本中执行函数比在shell命令中执行快。它会在C中调用这个命令吗？如果是，两者的区别是什么
rmdir foo
和
system('rmdir foo');
浏览 2提问于2010-04-24得票数 4
回答已采纳
1回答
我的问题是如何用php语言将参数发送到另一台服务器上的脚本？示例:我的站点是：，我想发送一些参数到：和一个srcipt，运行时使用php代码中给出的参数，并向panle.php发送一个数字或字符串。我认为最好让perl中的用户cgi获取参数并执行，但我没有来自perl cgi的后台支持，很抱歉我的语言不好:D。
浏览 0提问于2014-03-14得票数 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
回答已采纳
我的问题是，我有包含3个脚本(perlx2和shellx1)的文件夹和一个希望在perl脚本中使用的内部数据文件夹。
shell脚本连续调用两个perl脚本，第一个脚本创建一个文件，第二个脚本对创建的文件中的数据进行分析。
通过阅读，我可以使用Active perl或其他类似的工具来打包Perls脚本，以便为基本的windows用户执行。不过，我认为如果我创建一种批处理文件来运行整个程序集，那就更有意义了。
很抱歉我缺乏知识，我希望能在这方面提供一些帮助。
谢谢!
浏览 2提问于2013-08-13得票数 2
回答已采纳
我有一个perl脚本，它需要2个参数才能运行。我目前使用的是Ubuntu，我设法从终端执行了perl脚本，方法是将目录更改为perl脚本所在的位置，并编写
perl tool.pl config=../mydefault.config file=../Test
但是，当我试图从java程序(我使用的是eclipse)运行perl脚本时，它总是给我一条消息Command Failure。代码如下：
Process process;
try {
process = Runtime.getRuntime().exec("perl /home/Leen/Desktop/Tools/bi
浏览 0提问于2012-09-14得票数 1
回答已采纳
是否可以在Stata .do文件中执行Perl脚本？
我有一个Stata .do文件，在该文件中，我对数据集进行了一些操作，并以某种方式对其进行了排列。然后我有了一个Perl脚本，在这个脚本中，我接受其中一个变量，将Perl包应用到它，并对其中一个变量进行转换。特别是，我使用Perl的NYSIIS函数，从而生成了一个非常短的脚本。在用Perl提供了这个输出之后，我想继续使用Stata进行一些额外的工作。
出现在脑海中但不那么可取的两种选择是：
编写Stata代码来执行nysiis，但我更喜欢使用Perl的内置函数。
outsheet并将Stata .do文件的输出保存为.txt for
浏览 7提问于2013-06-06得票数 2
回答已采纳
我想在PHP脚本中调用perl脚本作为外部程序，一旦PHP脚本运行完毕，它应该将输出发送回html页面。我尝试使用exec命令来调用perl脚本，但它不起作用。请帮助我使用这个简单的perl脚本，这样我就可以尝试使用相同的脚本！
Perl脚本：
#!/usr/bin/perl -s
$var1 = 'high';
print $var1;
提前感谢！
浏览 0提问于2012-05-28得票数 1
回答已采纳
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脚本中的'ls -a‘，以及检索命令输出的方法，有什么好的例子？
浏览 2提问于2010-07-08得票数 73
回答已采纳
2回答
我有perl脚本，当我试图运行这个脚本时，它没有执行权限(只有rw)。但是当我使用"perl -e script.pl“运行这个脚本时，它可以工作，并且脚本是通过自己的权限执行的。
有人能解释一下这种奇怪的行为吗？
浏览 3提问于2014-04-23得票数 1
回答已采纳
我需要将我无法控制的参数接收到shell脚本中，并保留任何单引号或双引号。例如，简单地输出给定参数的脚本应该如下所示：
> my_script.sh "double" 'single' none
"double" 'single' none
我没有特权来补充这些论点，比如：
> my_script.sh \"double\" \'single\' none
或
> my_script.sh '"double"' "'single
浏览 0提问于2011-08-08得票数 0
5回答
我正在尝试通过Perl脚本以以下方式设置环境变量LD_LIBRARY_PATH：
我已经在/root下创建了.profile
.profile有一个export命令，命令如下：
export LD_LIBRARY_PATH=/
我的Perl脚本是test.pl，它具有：
#!/usr/bin/perl
system(". /root/.profile");
当我执行./test.pl时，LD_LIBRARY_PATH没有改变。
我做错了什么？
浏览 1提问于2013-10-05得票数 6
我有以下Bash脚本，用于将作业提交给集群上的：
#!/bin/bash
#SBATCH -A 1234
#SBATCH -t 2-00:00
#SBATCH -n 24
module add xxx
srun resp.com
#SBATCH行是SLURM命令：
#SBATCH -A 1234是项目编号(1234)。
#SBATCH -t 2-00:00是工作时间
#SBATCH -n 24是核的数目
module add xxx加载 xxx (在本例中，我实际上使用的是module add gaussian，其中gaussian是一个计算量子化学程序)。
srun是
浏览 3提问于2015-02-17得票数 0
2回答
我有以下不能在cygwin中执行的简单perl脚本：
#!/usr/bin/perl
use strict;
system("../cat.exe < a.txt > b.txt");
当我运行它时，脚本告诉我：
./my_test.pl
'..' is not recognized as an internal or external command,
operable program or batch file.
但是，我可以在cygwin shell中运行该命令：
$ ../cat.exe < a.txt > b.txt
$
浏览 0提问于2011-10-30得票数 0
回答已采纳
我正在尝试从Perl脚本( source脚本，script.pl)中提取一个脚本。
system ("source /some/generic/script");
请注意，这个通用脚本可以是shell、python或任何其他脚本。而且，我不能将这个通用脚本中的逻辑复制到我的Perl脚本中。我试着用、exec和qx//代替。每次我得到以下错误：
无法执行“源代码”：在script.pl第18行没有这样的文件或目录。
我在互联网上看到了许多论坛，讨论了这个问题的各种原因。但他们都没有给出解决方案。有任何方法从Perl脚本运行/执行source命令吗？
浏览 2提问于2015-11-18得票数 5
可能重复：
运行在Mac 10.8.2上的
我正在通过SSH运行perl脚本，在perl脚本中，我使用$ENV{MY_VAR_NAME}查询环境变量，并且在本地运行时运行良好。但是通过SSH，所有的环境变量都会被取消设置。
我也试着跑
system("source ~/.bash_profile");
在我的剧本开始的时候都没有用。
有小费吗？
编辑：
改写我的问题。
我有机器A和B，我在机器B上运行我的perl，试图在B上获得环境变量，并且它工作了。然后我从A到B运行相同的脚本，即使用以下代码
ssh user@B perl myscript.pl
这一次B上的环境
浏览 2提问于2012-10-09得票数 1
我试图在Python (v2.6)中为Perl (v5.10.1)编写这个Linux命令。
perl tilt.pl *.pdb > final.txt
我如何做才能将Perl脚本应用于每个PDB文件，最好是示例？
我现在的剧本是：
import shlex, subprocess
arg_str = "perl tilt.pl frames > final.txt"
arg = shlex.split(arg_str)
print(arg)
import os
framespdb = os.listdir("prac_frames")
for
浏览 3提问于2014-07-22得票数 1
回答已采纳
2回答
我试图按照unix命令执行，但它没有被执行。
$array_of_tables= `dbsmp $srv_name`;
print "$array_of_tables\n";
请帮助我通过perl脚本找到数据库中的表列表。
此外，我还试图使用以下命令将文件从路径复制到不同的路径：
copy(`cd /osp/slee/service/$srv_name/bin/exec/script.txt`,`cd /osp/local/home/linus/amit/scripts`);
但是有个错误：-
Usage: copy(FROM, TO [, BUFFERSIZE])
请提供一些
浏览 1提问于2015-01-08得票数 0
回答已采纳
我在下面的路径(/home/Leen/Desktop/Tools/bin/tool.pl)中有一个perl脚本，每次我想要运行这个工具时，我都会去终端
>
然后将目录更改为
.../bin>
然后我通过编写以下代码来运行perl
..../bin> perl tool.pl file= whatever config= whatever
问题是我想运行这个perl脚本，而不需要转到它所在的bin文件夹。因此，我可以从任何目录运行perl脚本，只要我进入shell，我就转到etc/environment并编写以下代码
导出PERL5LIB=$PERL5LIB:/home/Lee
浏览 0提问于2012-09-15得票数 2
回答已采纳
我被Automator.app在Mac Leopard中创建上下文服务的能力所吸引。我想创建一些键盘可访问的快捷键，通过调用shell脚本来操作文本片段。然而，Automator只建议bash、Perl、Python和Ruby (以及其他)允许这样做。但是，由于PHP也随Mac一起提供(老实说，它是我唯一完全掌握的脚本语言)，我想知道为什么我不能运行PHP shell脚本。
浏览 5提问于2009-09-09得票数 10
4回答
我有一个非常简短的perl脚本：
#!/usr/bin/perl
print "The date is ",`date`;
print "The date is `date`",".\n";
$directory=`pwd`;
print "\nThe current directory is $directory.";
和输出：
The date is Sat Jul 2 17:04:58 PDT 2011
The date is `date`.
The current directory is total 20
-rwxr
浏览 0提问于2011-07-03得票数 1
回答已采纳
4回答
我想编写一个perl脚本，将其工作目录更改为其他目录，执行某些操作，然后在从shell调用它后将我留在该目录中。chdir只做了第一部分。如何更改调用者的工作目录？
浏览 2提问于2011-05-11得票数 3
回答已采纳
我可以使用perl脚本中的if (-e $file)来判断文件是否存在于linux中。
我可以在linux中运行p4 fstat $file来判断文件是否存在于perforce depot中。
但是如何使用perl脚本检查文件是否在perforce depot中呢？
浏览 7提问于2018-02-26得票数 1
我正在编写一个Perl脚本来生成包含文本的图像。我在Linux机器上。我在用pbmtextps。当我尝试用这样的系统调用在Perl中运行pbmtextps时
system("pbmtextps -fontsize 24 SampleText > out.pbm");
我收到这条错误消息
pbmtextps: failed to run Ghostscript process: rc=-1
但是，如果我从Perl之外的命令行运行完全相同的pbmtextps命令，它就不会运行错误。
为什么当我从Perl脚本中运行它时，它会导致幽灵脚本错误？
附加信息:我试图通过创建一个名为m
浏览 1提问于2014-02-08得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
