Re^3: File integrity checker

IO::Uncompress::Gunzip will check the sum for you if you set the Strict option:

gunzip 'file.gz', 'file.out', Strict=>1 or die $GunzipError;
[download]

Comment on Re^3: File integrity checker Download Code

Replies are listed 'Best First'.
Re^4: File integrity checker by no_slogan (Deacon) on Aug 24, 2017 at 17:37 UTC
BTW, if you want to test your error-checking code, you can break the stored checksum like this: `open my $F, '+<', 'file.gz' or die $!; seek $F, -8, 2; my $c = getc($F); seek $F, -8, 2; print $F chr(ord($c) ^ 1);` [download] Running this a second time will fix the .gz file.	[reply] [d/l]
Re^5: File integrity checker by roperl (Beadle) on Aug 24, 2017 at 21:05 UTC
That worked great. Thanks	[reply]
Re^4: File integrity checker by roperl (Beadle) on Aug 24, 2017 at 18:42 UTC
Thanks that is helpful So how is `my $retval = gunzip 'file.gz' => 'file.out', Strict=>1 or $GunzipError +;` [download] different than `my $retval = gunzip 'file.gz', 'file.out', Strict=>1 or $GunzipError;` [download]	[reply] [d/l] [select]
Re^5: File integrity checker by no_slogan (Deacon) on Aug 24, 2017 at 18:48 UTC
It's not. The => operator is a "fat comma." (It also autoquotes its left-hand argument, which is why Strict=>1 doesn't produce a bareword warning.)	[reply]