home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 10
/
AU_CD10.iso
/
Updates
/
Perl
/
RPC
/
!Perl
/
scripts
/
chunkhead
< prev
next >
Wrap
Text File
|
1998-07-14
|
360b
|
20 lines
#!perl -lw
# Version 0.01
use RISCOS::Throwback;
use RISCOS::Chunkfile;
use RISCOS::File 'globlist';
use RISCOS::Filespec;
foreach $file (globlist @ARGV)
{
my $chunks = new RISCOS::Chunkfile $file;
print "$file:";
foreach my $id (sort keys %{$chunks->Index})
{
print "\t$id\t", join (' ', @{$chunks->Lookup ($id)});
}
}