84 lines
2.0 KiB
Perl
84 lines
2.0 KiB
Perl
#!/usr/bin/perl
|
|
'di';
|
|
'ig00';
|
|
#
|
|
# $Header: /home/cvs/386BSD/ports/lang/perl/eg/rename,v 1.1.1.1 1993/08/23 21:29:43 nate Exp $
|
|
#
|
|
# $Log: rename,v $
|
|
# Revision 1.1.1.1 1993/08/23 21:29:43 nate
|
|
# PERL!
|
|
#
|
|
# Revision 4.0 91/03/20 01:11:53 lwall
|
|
# 4.0 baseline.
|
|
#
|
|
# Revision 3.0.1.2 90/08/09 03:17:57 lwall
|
|
# patch19: added man page for relink and rename
|
|
#
|
|
|
|
($op = shift) || die "Usage: rename perlexpr [filenames]\n";
|
|
if (!@ARGV) {
|
|
@ARGV = <STDIN>;
|
|
chop(@ARGV);
|
|
}
|
|
for (@ARGV) {
|
|
$was = $_;
|
|
eval $op;
|
|
die $@ if $@;
|
|
rename($was,$_) unless $was eq $_;
|
|
}
|
|
##############################################################################
|
|
|
|
# These next few lines are legal in both Perl and nroff.
|
|
|
|
.00; # finish .ig
|
|
|
|
'di \" finish diversion--previous line must be blank
|
|
.nr nl 0-1 \" fake up transition to first page again
|
|
.nr % 0 \" start at page 1
|
|
';<<'.ex'; #__END__ ############# From here on it's a standard manual page ############
|
|
.TH RENAME 1 "July 30, 1990"
|
|
.AT 3
|
|
.SH NAME
|
|
rename \- renames multiple files
|
|
.SH SYNOPSIS
|
|
.B rename perlexpr [files]
|
|
.SH DESCRIPTION
|
|
.I Rename
|
|
renames the filenames supplied according to the rule specified as the
|
|
first argument.
|
|
The argument is a Perl expression which is expected to modify the $_
|
|
string in Perl for at least some of the filenames specified.
|
|
If a given filename is not modified by the expression, it will not be
|
|
renamed.
|
|
If no filenames are given on the command line, filenames will be read
|
|
via standard input.
|
|
.PP
|
|
For example, to rename all files matching *.bak to strip the extension,
|
|
you might say
|
|
.nf
|
|
|
|
rename 's/\e.bak$//' *.bak
|
|
|
|
.fi
|
|
To translate uppercase names to lower, you'd use
|
|
.nf
|
|
|
|
rename 'y/A-Z/a-z/' *
|
|
|
|
.fi
|
|
.SH ENVIRONMENT
|
|
No environment variables are used.
|
|
.SH FILES
|
|
.SH AUTHOR
|
|
Larry Wall
|
|
.SH "SEE ALSO"
|
|
mv(1)
|
|
.br
|
|
perl(1)
|
|
.SH DIAGNOSTICS
|
|
If you give an invalid Perl expression you'll get a syntax error.
|
|
.SH BUGS
|
|
.I Rename
|
|
does not check for the existence of target filenames, so use with care.
|
|
.ex
|