$ cat ./crc32.pl #!/usr/bin/env perl use strict; use warnings; use String::CRC32; die "Usage: crc32.pl file\n" unless @ARGV; for my $file (@ARGV) { open my $fh, '<', $file or die "can not open file $file: $!"; my $crc = crc32($fh); close $fh; printf "%08x %s (%08x)\n", $crc, $file, (0xffff_ffff - $crc); } $ ls *.txt data.txt file.txt golf.txt $ ./crc32.pl *.txt d13bcbe6 data.txt (2ec43419) 0b8c331a file.txt (f473cce5) 5f20086b golf.txt (a0dff794) $
In reply to Re: Checksum Help
by toolic
in thread Checksum Help
by TeamViterbi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |