arrays - 如何在 Perl 中对存储在此数组中的文件执行 md5sum 命令？

Question

我正在运行一个 perl 脚本来计算目录中每个文件的 md5sum。到目前为止，我将文件名存储在 @files 数组中。我想对数组中的每个文件名调用 md5sum 系统命令并将输出打印到标准输出？

这是我到目前为止所拥有的：

#!/usr/bin/perl -w

@files = <*>;
foreach $file (@files) {
print $file . "\n";
}

Answer 1

如果你想使用 md5sum，你应该使用Digest::MD5模块。如果你坚持使用系统的命令，my $digest = `md5sum $file`;会将结果存储到一个变量中。