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