There's little value in adding 'use strict' to old programs. Strictness is mostly a development aid.

Abigail

good notes! I enjoyed your comment, and didn't even think about the snippet pre-dating strict;

Strictness is mostly a development aid.

I'm going to disagree with that statement. Strictness is both a development aid and a debugging aid. For example, I am attempting to maintain some crappy code that is in production that was originally written by C programmers who don't understand references. By adding strict, I can detect and fail on attempts to use non-references as references. While testing should catch these, it won't catch them all.

Personally, I feel that if you're maintaining and updating an old program, it should be made strict. (Preferably, I'd add warnings to it, as well, but that's truly a personal preference. I'm anal. *grins*)

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

__END__

=head1 NAME

rename - larry's filename fixer

=head1 SYNOPSIS

  % rename 's/\.orig$//' *.orig
  % rename 'tr/A-Z/a-Z/ unless /^Make/' *
  % rename '$_ .= "bad"' *.f
  % rename 'print "$_: "; s/foo/bar/ if <STDIN> =~ /^y/i' *
  % find /tmp -name '*~' -print | rename 's/^(.+)~$/.#$1/'

=head1 DESCRIPTION

B<rename> is small script inspired from the "perl cookbook" 
that allows you to pass it a regular expression and 
filenames to apply that regex to. This is available online 
at http://www.perlmonks.org/index.pl?node=277174

=head1 AUTHOR

djbiv
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Here it is, for what it's worth:

#!/usr/bin/perl -s
# bsb hacked version of /usr/bin/rename
use strict;
use vars qw($q $n $t);
use Convert::Translit;
# Quiet, do Nothing, Test
$q=$q; $n=$n; $t=$t;
my $trans = Convert::Translit->new('Latin1' => 'ascii');

if ($t) {
    $n=1;
    @ARGV = <DATA>;
}
if (!@ARGV) {
    print "reading filenames from STDIN\n" unless $q;
    @ARGV = <STDIN>;
    chop(@ARGV);
}


for (@ARGV) {
    my $was = $_;

    $_ = $trans->transliterate($_);
    $_=lc;
    s/&/ and /g;
    s/\+/ plus /g;
    s/'//g;
    y/()~/---/s;
    print if $t;
    s/(?:(\.)|(-)|[\W_])+/$1||$2||'_'/ge;
    s/^[._-]//;
    s/[._-]$//;

    die $@ if $@;
    if( $was eq $_ )        { }     # ignore quietly
    elsif( -e $_ )      { warn  "$was not renamed: $_ already exists\n
+"; }
    elsif($n || rename($was,$_)) { print "$was renamed as $_\n" unless
+ $q; }
    else            { warn  "Can't rename $was $_: $!\n"; }
}
[download]

Thanks bsb for pointing out the Convert::Translit::transliterate(). Now, only if the first locale could be guessed given some text...

That's a good example of why literature is written in text, and only first graders at most "read" picture books.

Makeshifts last the longest.