From 1651adc35224e149715bd85af4ba108c5ee184bc Mon Sep 17 00:00:00 2001
From: Tar Committer <tar@ocjtech.us>
Date: Sun, 19 Nov 2000 22:01:05 +0000
Subject: Imported from rancid-2.0.tar.gz.

---
 bin/rename.in | 113 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 113 insertions(+)
 create mode 100755 bin/rename.in

(limited to 'bin/rename.in')

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
-- 
cgit