[p5sagit/p5-mst-13.2.git] / eg / rename

#!/usr/bin/perl

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