home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 10
/
AU_CD10.iso
/
Updates
/
Perl
/
RPC
/
!Perl
/
scripts
/
putSource
< prev
next >
Wrap
Text File
|
1998-07-14
|
591b
|
31 lines
#! perl
use RISCOS;
use File::Copy syscopy;
die "$0 <RISCOSSourceDir> <UnixDestDir>" if( $#ARGV < 1 );
$sourcedir = $ARGV[0];
$destdir = $ARGV[1];
foreach( 'cc', 'c', 'h' )
{
$ext{ $_ } = $_; # Hash directory name by suffix
# (Currently dirname == suffix )
}
foreach $dir ( keys %ext )
{
print "$sourcedir.$dir\n";
opendir( MYDIR, "$sourcedir.$dir" ) || next;
foreach $file ( readdir( MYDIR ) )
{
$source = "$sourcedir.$dir.$file";
$dest = "$destdir.$file/$ext{$dir}";
print "$source -> $dest\n";
syscopy $source, $dest, 0x102 or print STDERR "$!\n";
}
}