head	1.2;
access;
symbols
	RELENG_2_2_8_RELEASE:1.1.1.1
	RELENG_2_2_7_RELEASE:1.1.1.1
	RELENG_2_2_6_RELEASE:1.1.1.1
	RELENG_2_2_5_RELEASE:1.1.1.1
	RELENG_2_2_2_RELEASE:1.1.1.1
	RELENG_2_2_1_RELEASE:1.1.1.1
	RELENG_2_2_0_RELEASE:1.1.1.1
	RELENG_2_1_7_RELEASE:1.1.1.1.6.1
	RELENG_2_1_6_1_RELEASE:1.1.1.1.6.1
	RELENG_2_1_6_RELEASE:1.1.1.1.6.1
	RELENG_2_2:1.1.1.1.0.8
	RELENG_2_2_BP:1.1.1.1
	RELENG_2_1_5_RELEASE:1.1.1.1.6.1
	RELENG_2_1_0_RELEASE:1.1.1.1
	RELENG_2_1_0:1.1.1.1.0.6
	RELENG_2_1_0_BP:1.1.1.1
	RELENG_2_0_5_RELEASE:1.1.1.1
	RELENG_2_0_5:1.1.1.1.0.4
	RELENG_2_0_5_BP:1.1.1.1
	RELENG_2_0_5_ALPHA:1.1.1.1
	RELEASE_2_0:1.1.1.1
	BETA_2_0:1.1.1.1
	ALPHA_2_0:1.1.1.1.0.2
	perl_4_036_bmake:1.1.1.1
	lwall:1.1.1;
locks; strict;
comment	@# @;


1.2
date	98.09.09.06.49.04;	author markm;	state dead;
branches;
next	1.1;

1.1
date	94.09.10.06.27.46;	author gclarkii;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	94.09.10.06.27.47;	author gclarkii;	state Exp;
branches
	1.1.1.1.6.1
	1.1.1.1.8.1;
next	;

1.1.1.1.6.1
date	96.06.05.02.41.55;	author jkh;	state Exp;
branches;
next	1.1.1.1.6.2;

1.1.1.1.6.2
date	99.09.05.11.11.10;	author peter;	state Exp;
branches;
next	;

1.1.1.1.8.1
date	99.09.05.11.06.53;	author peter;	state Exp;
branches;
next	;


desc
@@


1.2
log
@Old Perl is leaving us. Goodbye, faithful friend.
@
text
@#!/usr/bin/perl
'di';
'ig00';
#
# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/rename,v 1.1 1994/09/10 06:27:46 gclarkii Exp $
#
# $Log: rename,v $
# Revision 1.1  1994/09/10 06:27:46  gclarkii
# Initial revision
#
# 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
@


1.1
log
@Initial revision
@
text
@d5 1
a5 1
# $Header: /home/cvs/386BSD/ports/lang/perl/eg/rename,v 1.1.1.1 1993/08/23 21:29:43 nate Exp $
d8 3
@


1.1.1.1
log
@Initial import of Perl 4.046 bmaked

@
text
@@


1.1.1.1.8.1
log
@$Id$ -> $FreeBSD$
@
text
@d5 1
a5 1
# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/Attic/rename,v 1.1.1.1 1994/09/10 06:27:47 gclarkii Exp $
a7 4
# Revision 1.1.1.1  1994/09/10 06:27:47  gclarkii
# Initial import of Perl 4.046 bmaked
#
#
@


1.1.1.1.6.1
log
@This 3rd mega-commit should hopefully bring us back to where we were.
I can get it to `make world' succesfully, anyway!
@
text
@d5 1
a5 1
# $Header: /pub/FreeBSD/FreeBSD-CVS/src/gnu/usr.bin/perl/eg/rename,v 1.1.1.1 1994/09/10 06:27:47 gclarkii Exp $
a7 3
# Revision 1.1.1.1  1994/09/10  06:27:47  gclarkii
# Initial import of Perl 4.046 bmaked
#
@


1.1.1.1.6.2
log
@$Id$ -> $FreeBSD$
@
text
@d5 1
a5 1
# $FreeBSD$
@

