home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / Perl / RPC / !Perl / scripts / ModuleDump < prev    next >
Text File  |  1998-07-14  |  312b  |  16 lines
  1. #!perl -lw
  2. # Version 0.01
  3. use RISCOS::Module;
  4.  
  5.  
  6. foreach $mod (@ARGV)
  7. {
  8.     # Erm. my $mod isn't my'ed until after the next line!
  9.     my $mod = grab RISCOS::Module ($mod);
  10.     if ($mod) {
  11.     print scalar $mod->Dump;
  12.     }
  13. }
  14.  
  15. # Or the oneliner
  16. # perl -MRISCOS::RomModule -le 'foreach (rommodules) {print $_->Line()}'