在Perl程序中执行任何Unix命令的最简单方法是使用backstick运算符。您只需将命令放入backstick运算符中,这将导致命令执行并返回其结果,该结果可以存储如下:
#!/usr/bin/perl @files = `ls -l`; foreach $file (@files) { print $file; } 1;
执行以上代码后,它将列出当前目录中可用的所有文件和目录-
drwxr-xr-x 3 root root 4096 Sep 14 06:46 9-14 drwxr-xr-x 4 root root 4096 Sep 13 07:54 android -rw-r--r-- 1 root root 574 Sep 17 15:16 index.htm drwxr-xr-x 3 544 401 4096 Jul 6 16:49 MIME-Lite-3.01 -rw-r--r-- 1 root root 71 Sep 17 15:16 test.pl drwx------ 2 root root 4096 Sep 17 15:11 vAtrJdy