Linux命令之文件校验cksum

你可以使用以下 Perl 代码来完成你的需求： ```perl use strict; use warnings; # 获取当前文件夹下所有以 ".png" 结尾的文件 my @files = glob "*.png"; # 打开 CRC 文件用于写入校验结果 open my $crc_fh, '>', 'CRC.txt' or die "无法打开 CRC 文件: $!"; # 遍历每个文件，计算校验和并写入 CRC 文件 foreach my $file (@files) { # 使用 cksum 命令计算校验和 my $cksum_output = `cksum $file`; # 提取校验和结果 my ($checksum, $size, $filename) = split /\s+/, $cksum_output; # 将校验结果写入 CRC 文件 print $crc_fh "$checksum\n"; } # 关闭 CRC 文件 close $crc_fh; # 读取 CRC 文件中的每一行并存储到队列中 my @queue; open $crc_fh, '<', 'CRC.txt' or die "无法打开 CRC 文件: $!"; while (my $line = <$crc_fh>) { chomp $line; push @queue, $line; } close $crc_fh; # 比较队列中的值 if (scalar @queue > 1) { my $first_value = shift @queue; my $same_values = 1; foreach my $value (@queue) { if ($value ne $first_value) { $same_values = 0; last; } } if ($same_values) { print "队列中的所有值相同\n"; } else { print "队列中的值不全相同\n"; } } else { print "队列中的值不足两个\n"; } ``` 这段代码首先获取当前文件夹下所有以 ".png" 结尾的文件，然后使用 `cksum` 命令计算每个文件的校验和，并将校验结果依次写入到名为 "CRC.txt" 的文件中。接着，读取 "CRC.txt" 文件中的每一行并存储到队列中。最后，比较队列中的值，如果所有值相同，则输出 "队列中的所有值相同"；否则，输出 "队列中的值不全相同"。