我怎样才能让系统命令返回变量？

Question

我有一个这样的示例代码：

#!usr/bin/perl -w
my $path = shift;
my $max_number_of_files = shift;
print("Changing directory to path $path $!" . "\n");
chdir($path) or die "Cant chdir to $path $!";
print("Counting files..." . "\n");
counting();
sub counting {
$counted = system("ls -1 | wc -l");
if ($counted > $max_number_of_files) {
print("You have more or equal files");
return 1;
}
else {
    print("$counted");
    print "You have less files";
    return 2;
}
}

但我的价值 $counted 我认为没有得到系统命令显示到控制台的值。我检查了它，它总是为零。我该如何处理？

Answer 1

解析ls 的输出通常被认为是不好的做法，因为文件名可以包含换行符，这会使它们跨越多行，并且wc 会多次计算它们。

你可以试试这个：

#!/usr/bin/perl
use strict;
use warnings;

my @files=<*>;
print scalar(@files)," files\n";

此外，在可移植性方面，使用 Perl 的内置功能会做得更好，因为 ls 和 wc 在某些（例如 Windows）机器上可能不可用。

Answer 2

system的返回值是你system调用的进程的退出码，不是进程的输出。

要获取流程输出，请使用：

chomp($counted = `ls -1 | wc -l`);