home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 10
/
AU_CD10.iso
/
Updates
/
Perl
/
Non-RPC
/
!Perl
/
scripts
/
unsquash
< prev
next >
Wrap
Text File
|
1998-04-24
|
358b
|
17 lines
#!perl -w
# Version 0.01
undef $/;
while (<>) {
my $file = $ARGV;
unless (/^SQSH/) {
warn "'$file' is not a squash file\n";
next;
}
close ARGV;
unlink $file;
open OUT, "|gzip -d > $file" or warn "Whoops. Could not open '$file': $!";
print OUT substr $_, 20;
close OUT or warn "Problem unsquashing '$file'";
}