home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / Perl / Non-RPC / !Perl / scripts / rename < prev    next >
Text File  |  1998-07-12  |  650b  |  27 lines
  1. #!/bin/sh -- -*- perl -*- -w
  2. eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
  3.     & eval 'exec perl -S $0 $argv'
  4.     if 0;
  5. #
  6. # rename script examples from lwall:
  7. #       rename 's/\.orig$//' *.orig
  8. #       rename 'y/A-Z/a-z/ unless /^Make/' *
  9. #       rename '$_ .= ".bad"' *.f
  10. #       rename 'print "$_: "; s/foo/bar/ if <stdin> =~ /^y/i' *
  11.  
  12. use RISCOS::Filespec;
  13. use RISCOS::File ':DEFAULT', '/globlist/';
  14. $op = shift;
  15.  
  16. @ARGV = globlist( @ARGV );
  17.  
  18. die "$0 operation file [file...]" unless defined $op;
  19.  
  20. for (@ARGV) {
  21.     $was = $_;
  22.     eval $op;
  23.     die $@ if $@;
  24. #    printf "$was -> $_\n";
  25.     rename($was,$_) or warn $! unless $was eq $_;
  26. }
  27.