Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl -w
- #
- # regmv - Rename files using a regular expression
- #
- # This program renames files by using a regular expression to
- # determine their new name.
- #
- # Usage: regmv file [file ...] regexp
- #
- # $Id: regmv,v 1.1 1998/10/14 17:07:55 blrfl Exp $
- #
- sub at_clean()
- {
- my $message = $@;
- $message =~ s|\s+at /.*$||s;
- return $message;
- }
- (@ARGV > 1)
- || die "Usage: regmv [options] file [file ...] regexp\n";
- my $expr = pop @ARGV;
- $_ = 'SomeValue';
- eval "\$_ =~ $expr";
- die "Yuck: " . at_clean() if $@;
- foreach (@ARGV)
- {
- my $old = $_;
- eval "\$_ =~ $expr";
- next if $_ eq $old;
- (rename $old, $_)
- || die "Rename failed: $!\n";
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement