summaryrefslogtreecommitdiffstats
path: root/bin/rename.in
diff options
context:
space:
mode:
Diffstat (limited to 'bin/rename.in')
-rwxr-xr-xbin/rename.in113
1 files changed, 113 insertions, 0 deletions
diff --git a/bin/rename.in b/bin/rename.in
new file mode 100755
index 0000000..8c3a111
--- /dev/null
+++ b/bin/rename.in
@@ -0,0 +1,113 @@
+#!@PERLV_PATH@
+'di';
+'ig00';
+#
+# Revision 3.0.1.2 90/08/09 03:17:57 lwall
+# patch19: added man page for relink and rename
+#
+
+if ($ARGV[0] eq '-i') {
+ shift;
+ if (open(TTYIN, "</dev/tty") && open(TTYOUT,">/dev/tty")) {
+ $inspect++;
+ select((select(TTYOUT),$|=1)[0]);
+ }
+}
+($op = shift) || die "Usage: rename [-i] perlexpr [filenames]\n";
+if (!@ARGV) {
+ @ARGV = <STDIN>;
+ chop(@ARGV);
+}
+for (@ARGV) {
+ unless (-e) {
+ print STDERR "$0: $_: $!\n";
+ $status = 1;
+ next;
+ }
+ $was = $_;
+ eval $op;
+ die $@ if $@;
+ if ($was ne $_) {
+ if ($inspect && -e) {
+ print TTYOUT "remove $_? ";
+ next unless <TTYIN> =~ /^y/i;
+ }
+ unless (rename($was, $_)) {
+ print STDERR "$0: can't rename $was to $_: $!\n";
+ $status = 1;
+ }
+ }
+}
+exit $status;
+##############################################################################
+__END__
+ # 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 [-i] 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
+The
+.B \-i
+flag will prompt to remove the old file first if it exists. This
+flag will be ignored if there is no tty.
+.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
+To do the same thing but leave Makefiles unharmed:
+.nf
+
+ rename 'y/A-Z/a-z/ unless /^Make/' *
+
+.fi
+To rename all the *.f files to *.BAD, you'd use
+.nf
+
+ rename 's/\e.f$/.BAD/' *.f
+
+.SH ENVIRONMENT
+.fi
+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