home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / Perl / Non-RPC / !Perl / scripts / chunkhead < prev    next >
Text File  |  1998-07-14  |  360b  |  20 lines
  1. #!perl -lw
  2. # Version 0.01
  3. use RISCOS::Throwback;
  4. use RISCOS::Chunkfile;
  5. use RISCOS::File 'globlist';
  6. use RISCOS::Filespec;
  7.  
  8.  
  9. foreach $file (globlist @ARGV)
  10. {
  11.     my $chunks = new RISCOS::Chunkfile $file;
  12.     
  13.     print "$file:";
  14.     
  15.     foreach my $id (sort keys %{$chunks->Index})
  16.     {
  17.         print "\t$id\t", join (' ', @{$chunks->Lookup ($id)});
  18.     }
  19. }
  20.