perl的qx用法

最新推荐文章于 2023-10-10 15:50:00 发布

wgz7747147820

最新推荐文章于 2023-10-10 15:50:00 发布

阅读量1.8k

点赞数

分类专栏： perl 文章标签： perl

本文链接：https://blog.csdn.net/wgz7747147820/article/details/90480385

版权

perl 专栏收录该内容

31 篇文章

订阅专栏

[root@rwsoda203db1 perl_tidb]# cat p.pl
#!/usr/bin/perl
use strict "subs";
use strict;
use v5.16;

my $perl_info = qx(ps $$);
my $shell_info = qx 'ps $$';

print "perl_info $perl_info\n";
print "shell_info $shell_info\n";
[root@rwsoda203db1 perl_tidb]# ./p.pl
perl_info   PID TTY      STAT   TIME COMMAND
15873 pts/1    S+     0:00 /usr/bin/perl ./p.pl

shell_info   PID TTY      STAT   TIME COMMAND
15875 pts/1    R+     0:00 ps 15875