[Techtalk] bash/perl script to rename files...
Michelle Murrain
tech at murrain.net
Fri Oct 26 14:46:15 EST 2001
At 02:07 PM 10/26/2001, you wrote:
>I need a perl script that replaces spaces
>in a filename with underscores...
>
>I'm sure that this can be achieved, I just
>don't know how to do it.
#!/usr/bin/perl -w
use strict;
print "Filename:";
my $fname = <>;
chomp $fname;
my $ofname = $fname;
$ofname =~ s/\ /\\ /g;
$fname =~ s/\ /\_/g;
print "$ofname,$fname";
exec "mv $ofname $fname";
exit;
I'm sure there are more elegant scripts, but this works.
.Michelle
---------------------------------------
Michelle Murrain, Ph.D.
tech at murrain.net
AIM:pearlbear0
http://www.murrain.net/public_key.html for pgp public key
More information about the Techtalk
mailing list