home *** CD-ROM | disk | FTP | other *** search
- #!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)});
- }
- }
-