home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / Perl / Non-RPC / !Perl / scripts / putSource < prev    next >
Encoding:
Text File  |  1998-07-14  |  591 b   |  31 lines
  1. #! perl
  2. use RISCOS;
  3. use File::Copy syscopy;
  4.  
  5. die "$0 <RISCOSSourceDir> <UnixDestDir>" if( $#ARGV < 1 );
  6.  
  7. $sourcedir = $ARGV[0];
  8. $destdir = $ARGV[1];
  9.  
  10. foreach( 'cc', 'c', 'h' )
  11. {
  12.   $ext{ $_ } = $_;    # Hash directory name by suffix
  13.             # (Currently dirname == suffix )
  14. }
  15.  
  16.  
  17. foreach $dir ( keys %ext )
  18. {
  19.     print "$sourcedir.$dir\n";
  20.     opendir( MYDIR, "$sourcedir.$dir" ) || next;
  21.  
  22.  
  23.     foreach $file ( readdir( MYDIR ) )
  24.     {
  25.     $source = "$sourcedir.$dir.$file";
  26.     $dest = "$destdir.$file/$ext{$dir}";
  27.     print "$source -> $dest\n";
  28.     syscopy $source, $dest, 0x102 or print STDERR "$!\n";
  29.     }
  30. }
  31.