From ca4b95e67cb163120117189e0990da6dae2de193 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 3 May 2021 17:49:57 +0000 Subject: copy lwall rename script here, to make us more self-contained git-svn-id: svn://tug.org/texlive/trunk@59065 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/libexec/ctan2tds | 4 +- Master/tlpkg/libexec/rename | 98 +++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 101 insertions(+), 1 deletion(-) create mode 100755 Master/tlpkg/libexec/rename (limited to 'Master/tlpkg/libexec') diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds index 4085517a719..e30610564b8 100755 --- a/Master/tlpkg/libexec/ctan2tds +++ b/Master/tlpkg/libexec/ctan2tds @@ -3704,8 +3704,10 @@ sub sanitize_file_names { # -0 in case of spaces or other chars in filenames, which would be # parsed into words by the shell otherwise, cause trouble with svn, etc. if (-d $dir) { + my $libexec = "$mydir/../libexec"; + my $rename = "$libexec/rename"; &SYSTEM ("find $dir -print0 " - . "| xargs -0 /l/bin/rename 's![^-_A-Za-z0-9.,/+]!!g'"); + . "| xargs -0 $rename 's![^-_A-Za-z0-9.,/+]!!g'"); } else { die "$0:sanitize_file_names: not a directory, goodbye: $dir\n"; } diff --git a/Master/tlpkg/libexec/rename b/Master/tlpkg/libexec/rename new file mode 100755 index 00000000000..d3ba65e4827 --- /dev/null +++ b/Master/tlpkg/libexec/rename @@ -0,0 +1,98 @@ +#!/usr/bin/env perl +# $Id$ +# rename files according to Perl expression. + +'di'; +'ig00'; + +if ($ARGV[0] eq "-n") { + shift; + $chicken = 1; +} else { + $chicken = 0; +} + +($op = shift) || die "Usage: rename [-n] perlexpr [filenames]\n"; +if (!@ARGV) { + @ARGV = ; + chop(@ARGV); +} +for (@ARGV) { + $was = $_; + eval $op; + die $@ if $@; + unless ($was eq $_) { + if (-e $_) { + warn "rename: skipping $was to $_, already exists\n"; + next; + } + print "$was -> $_\n"; + $chicken + || rename($was,$_) + || warn "rename($was->$_) failed: $!"; + } +} +############################################################################## +# Added -n option somewhere in these decades ... --karl +# +# 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 + + # 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 "May 3, 2021" +.\" original date was "July 30, 1990" +.AT 3 +.SH NAME +rename \- renames multiple files +.SH SYNOPSIS +.B rename [-n] 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 +If the destination file already exists (-e), the rename is skipped. +.PP +With -n, show what would be renamed without changing anything. +.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. +.ex -- cgit v1.2.3