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