使用perl，对当前文件夹下的p0.png p1.png p2.png进行cksum语言进行cksum校验，并依次将校验结果输出到CRC文件中，读取CRC文件中每一行，并将每一行的第一个字符串存到队列中，判断队列的深度是否等于3，之后比较队列的值

以下是使用 Perl 实现对当前文件夹下的 p0.png、p1.png 和 p2.png 进行 cksum 校验，并将结果输出到 CRC 文件中，然后读取 CRC 文件并将每行的第一个字符串存入队列，并判断队列的深度是否等于 3，最后比较队列的值的示例代码：

use strict;
use warnings;

# 获取当前文件夹下的所有 png 文件
my @files = glob "*.png";

# 打开 CRC 文件用于写入校验结果
open my $crc_file, '>', 'CRC' or die "无法打开 CRC 文件：$!";

# 对每个文件进行 cksum 校验并写入 CRC 文件
foreach my $file (@files) {
    my $cksum = `cksum $file`;
    print $crc_file $cksum;
}

# 关闭 CRC 文件
close $crc_file;

# 存储校验结果的队列
my @queue;

# 打开 CRC 文件用于读取校验结果
open $crc_file, '<', 'CRC' or die "无法打开 CRC 文件：$!";

# 读取 CRC 文件的每一行并将第一个字符串存入队列
while (my $line = <$crc_file>) {
    chomp $line;
    my ($value) = split /\s+/, $line;
    push @queue, $value;
    
    # 判断队列的深度是否等于 3
    if (@queue == 3) {
        # 比较队列的值
        if ($queue[0] eq $queue[1] && $queue[1] eq $queue[2]) {
            print "队列的值相等\n";
        } else {
            print "队列的值不相等\n";
        }
        last;
    }
}

# 关闭 CRC 文件
close $crc_file;

请注意，这只是一个示例代码，具体的实现可能需要根据你的实际需求进行修改。