cksum与md5sum实现文件校验

根目录下建立目录xcu,在xcu下建立文件xcu1.txt,里面输入学院信息:包含学院名称和计科专业简介;在xcu下建立目录com,在com目录中建立com1.txt,包含个人的姓名、性别和个人爱好信息。通过cksum检查xcu目录的数据一致性,在xcu中追加目录network和meida,在检查目录xcu的数据一致性,将media目录换名为media2移动到network目录中,删除目录network。

主要指令:
cksum /xcu/xcu1.txt > /example1.cksum
cksum /xcu/xcu1.txt |diff - /example1.cksum

这里写图片描述

主要命令
md5sum xcu1.txt > /example2.
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
你可以使用以下 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" 文件中的每一行并存储到队列中。最后,比较队列中的值,如果所有值相同,则输出 "队列中的所有值相同";否则,输出 "队列中的值不全相同"。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值