提示信息

Perl调用shell命令方法小结

峰子 已关注
10月12日 发表在 Perl 编程语言 阅读 2116 评论 20 | 免费使用 “AI大模型GPT4.0” 提问

一、system

perl也可以用system调用shell的命令,它和awk的system一样,返回值也是它调用的命令的退出状态.

  1. [root@mycoding ~]# cat aa.pl
  2. #! /usr/bin/perl -w
  3. $file = "wt.pl";
  4. system("ls -l wt.pl");
  5. $result = system "ls -l $file";
  6. print "$result \n"; #输出命令的退出状态
  7. system "date";
  8. [root@mycoding ~]# perl aa.pl
  9. -rwxr-xr-x 1 root root 126 12-16 15:12 wt.pl
  10. -rwxr-xr-x 1 root root 126 12-16 15:12 wt.pl
  11. 2010年 12月 16日 星期四 15:58:34 CST

二、反引号

perl的system函数和awk的一样不能够返回命令的输出. 要得到命令的输出,就得使用和shell本身一样的命令: ``

  1. [root@mycoding ~]# cat bb.pl
  2. #! /usr/bin/perl
  3. print `date`;
  4. print "this is test \n";
  5. [root@mycoding ~]# perl bb.pl
  6. 2010年 12月 16日 星期四 15:51:59 CST
  7. this is test

三、exec

最后,perl还可以使用exec来调用shell的命令. exec和system差不多,不同之处在于,调用exec之后,perl马上就退出,而不会去继续执行剩下的代码

  1. [root@mycoding ~]# cat cc.pl
  2. #! /usr/bin/perl
  3. exec ("echo this is test");
  4. print "good bye !\n";  #这句话不会被输出
  5. [root@mycoding ~]# perl cc.pl
  6. this is test
    遇到难题？ "AI大模型GPT4.0、GPT" 是你的私人解答专家！ 点击按钮去提问......
峰子 关注 已关注

最近一次登录：2019-10-10 14:28:58   

暂时还没有签名，请关注我或评论我的文章
20条评论
按时间正序 按时间倒序 按喜欢排序

舍我其谁
10月15日

system和反引号的区别解释得很清楚，尤其是返回值与输出的不同，赞！

赞 0 回复 举报

距离感： @舍我其谁

感谢您的分享，确实理解 system 和反引号的返回值是关键！system 返回的是命令的退出状态，而反引号则返回命令的标准输出。这样的细节对编写高效的脚本至关重要。

例如：

my $exit_status = system("ls");
print "Exit status: $exit_status\n";

my $output = `ls`;
print "Command output:\n$output\n";

如果想深入了解 Perl 中的进程管理和执行外部命令，可以参考 Perl Documentation。这样可帮助更好地掌握如何处理异常和输出。继续加油！

11月11日 回复 举报
添加新评论
梦绕
10月17日

关于exec的使用方法有点迷惑，为何不能继续执行后续代码，希望有更多例子。

赞 0 回复 举报

痴心绝对： @梦绕

exec确实是一个很特殊的函数，主要是用来执行一个外部命令并替换当前的进程。由于exec会终止当前脚本的执行并用新的命令替代，因此后续代码不会再被执行。比如：

exec("ls -l");
print "这行代码不会被执行。\n"; # 这一行不会输出

如果希望在执行命令后继续保持脚本的执行，可以使用系统调用system。例如：

system("ls -l");
print "这行代码会被执行。\n"; # 这一行会输出

对于深入理解exec和system的区别，建议参考Perl官方文档：perlfunc和perlipc.

11月10日 回复 举报
添加新评论
绰绰
10月23日

还不错，反引号获取命令输出的方式，不仅在Perl，其他语言也通用，值得多加运用。

赞 0 回复 举报

梦里花： @绰绰

确实，反引号的用法在多种语言中都是非常实用的。比如在Perl中，可以用它来直接获取shell命令的输出，像这样：

my $output = `ls -l`;
print $output;

类似的，Python也提供了类似的功能，比如使用subprocess模块：

import subprocess
output = subprocess.check_output("ls -l", shell=True)
print(output.decode())

通过这些方法，我们可以方便地调用外部命令，获取想要的数据。建议大家深入了解各语言的相关文档，提升自己的技能。可参考Perl基础以及Python subprocess。

11月08日 回复 举报
添加新评论
木棉
10月25日

总结得很到位，尤其是system与反引号的对比，实用！若加上具体应用场景就更好了。

赞 0 回复 举报

如诗： @木棉

感谢您的评论！确实，系统与反引号的比较在实践中意义重大。在具体应用场景中，例如，使用system执行一个需要后台运行的命令时，可以这样做：

system("sleep 10 &");

而如果需要捕获命令输出，反引号则更加合适：

my $output = `ls -l`;
print $output;

对于实际项目中的使用，建议参考Perl Documentation以了解更多细节和应用示例。希望这个补充能为您提供更多思路！

11月10日 回复 举报
添加新评论
没有
10月30日

使用Perl调用系统命令非常方便，这是一篇不错的小结，适合初学者参考。

赞 0 回复 举报

蝶音： @没有

感谢你的评论！确实，使用 Perl 调用系统命令非常简便，特别是对于需要处理文件和文本的任务。常用的有 system 和 backticks 方法：

# 使用 system 函数调用命令
system("ls -l");

# 使用反引号捕获命令输出
my $output = `ls -l`;
print $output;

针对初学者，建议多尝试练习不同的系统命令，熟悉 Perl 的语法。同时，可以参考 Perl Documentation 以获取有效的例子和详细的信息。这对提升 Perl 技能会有很大帮助！

11月09日 回复 举报
添加新评论
跌落
11月08日

反引号操作是Perl一个常用技能，能有效获取命令执行结果。理解exec和system的区别对编写脚本很有帮助。

赞 0 回复 举报

咖啡与眼泪： @跌落

您提到的反引号操作确实是 Perl 中非常实用的特性，能够轻松获得命令输出。理解 exec 与 system 的区别，能够帮助更有效地控制程序流程。例如，使用 my $output =ls; 可以直接获取 ls 命令的输出，而使用 system('ls'); 则只是执行命令，不会返回结果。

另外，推荐查阅 Perl's documentation on system() and exec() 来深入了解这两者的细节和使用场景，便于在编写脚本时做出更合适的选择。

11月12日 回复 举报
添加新评论
漫不
11月15日

示例代码简单直观，尤其是对于system等输出的对比，很容易理解。

赞 0 回复 举报

痴心绝对： @漫不

我很赞同这个用户的看法，示例代码不仅简单直观，还帮助我们轻松理解 Perl 中不同方法的用法。在 Perl 中调用 shell 命令时，system、qx// 和反引号 `command` 各有特点，适合不同场景。比如：

# 使用 system 执行命令
system("ls -l");

# 使用 qx// 获取命令输出
my $output = qx(ls -l);
print $output;

# 使用反引号也能获取输出
my $output2 = `ls -l`;
print $output2;

建议参考 Perl 官方文档，可以更深入了解这些方法的细节和最佳实践。

11月13日 回复 举报
添加新评论
沐年
11月23日

简洁明了，适合入门学习者。建议去Perl Documentation了解更多细节。

赞 0 回复 举报

撤托： @沐年

非常感谢你的评论！确实，Perl的文档（Perl Documentation）是了解更多细节的好去处。在调用shell命令时，使用system和反引号是一种常见的方法。例如：

# 使用system调用shell命令
system("ls -l");

# 使用反引号捕获命令输出
my @files = `ls -l`;
print @files;

这些方法可以让我们在Perl中灵活地与系统进行交互，推荐探索更多示例和应用。继续加油！

11月09日 回复 举报
添加新评论
蓝星
11月28日

对于需要嵌入调用其他程序结果的脚本，反引号十分高效。

赞 0 回复 举报

断肠崖： @蓝星

反引号确实是执行系统命令的一种简洁高效的方法。使用反引号可以直接获取命令的输出，示例如下：

my $output = `ls -l /path/to/directory`;
print $output;

不过，建议在处理不信任的输入时，使用 qx// 或 IPC::Open3，以提高安全性和灵活性。例如：

use IPC::Open3;
my $pid = open3(my $in, my $out, my $err, 'command');

这样可以更好地处理输入输出和错误信息，避免潜在的安全隐患。有关更多细节，可以参考 Perl官方文档.

11月08日 回复 举报
添加新评论
世界
11月29日

总结的三种方法涵盖了常用场景，示例代码运行效果也很清晰。

赞 0 回复 举报

浓郁： @世界

非常赞同你的看法，所总结的三种方法确实覆盖了在Perl中调用shell命令的常见情况。除了你提到的示例代码，建议还可以尝试使用 IPC::Open3 模块，可以提供更大的灵活性，例如获取标准输入、输出和错误输出的流。

use IPC::Open3;
use Symbol 'gensym';

my $error_fh = gensym;
my $pid = open3(my $input_fh, my $output_fh, $error_fh, 'ls -l');

while (<$output_fh>) {
    print $_;
}

while (<$error_fh>) {
    warn $_;
}
waitpid($pid, 0);

更多关于Perl与shell交互的内容，可以参考 Perl Documentation。

7天前 回复 举报
添加新评论
×
免费图表工具，画流程图、架构图