[perl5.git] / eg / rename

#!/usr/bin/perl

($op = shift) || die "Usage: rename perlexpr [filenames]\n";
if ($#ARGV < 0) {
    @ARGV = <stdin>;
    chop(@ARGV);
}
for (@ARGV) {
    $was = $_;
    eval $op;
    die $@ if $@;
    rename($was,$_) unless $was eq $_;
}
Commit	Line	Data
a687059c LW	1	#!/usr/bin/perl
	2
	3	($op = shift) \|\| die "Usage: rename perlexpr [filenames]\n";
	4	if ($#ARGV < 0) {
	5	@ARGV = <stdin>;
	6	chop(@ARGV);
	7	}
	8	for (@ARGV) {
	9	$was = $_;
	10	eval $op;
	11	die $@ if $@;
	12	rename($was,$_) unless $was eq $_;
	13	}