home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 10
/
AU_CD10.iso
/
Updates
/
Perl
/
Non-RPC
/
!Perl
/
scripts
/
RmSave
< prev
next >
Wrap
Text File
|
1998-07-14
|
422b
|
20 lines
#!perl -w
# Version 0.01
use RISCOS::Module 'rm_grab';
use RISCOS::Filespec;
use RISCOS::File 'settype';
use strict;
die "Syntax $0: <from> [<to>]\n" unless @ARGV == 1 or @ARGV == 2;
my ($grab, $save) = @ARGV;
$save = $grab unless defined $save;
my $mod = rm_grab $grab;
die "Could not grab '$grab'" unless defined $mod;
open MOD, ">$save" or die "Couldn't open '$save': $!";
print MOD $mod;
settype 'Module', $save;