[TAG] Talkback:131/lg_tips.html

[Benjamin A. Okopnik]

On Wed, Oct 04, 2006 at 01:21:39AM -0400, Benjamin Okopnik wrote:
> 
> Good recommendations, Richard - thanks!
> 
> I'll add to that list, too: my own 'ren' Perl script (credit to Larry
> Wall for the original idea.)

Whoops - forgot the script itself. :)

```
#!/usr/bin/perl -w
# Created by Ben Okopnik on Fri Dec 2 18:59:31 EST 1994
$do = shift or die "Usage: ", $0 =~ /([^\/]+)$/, " 'perlexpr' <file[s]>\n";

for (@ARGV){ $is = $_; eval $do; die "$@\n" if $@; rename $is, $_ unless -f }
'''


* Ben Okopnik * Editor-in-Chief, Linux Gazette * http://LinuxGazette.NET *