Or, in Perl (might as well): #!/usr/bin/perl -w
use strict;
opendir(DIR, system('pwd'));
my @files = readdir(DIR);
closedir(DIR);
my $new_name;
foreach (@files)
{
$new_name = lc($_);
$new_name =~ s/\ /\-/g;
system('mv -i $_ $new_name');
}
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
