On Sat, Sep 20, 2003 at 05:52:44PM -0400, Bijan Soleymani wrote:
> #!/usr/bin/perl
> @files=`ls`;
> foreach $file (@files)
> {
> chomp $file;
> if(-f $file)
> {
> $newname = uc $file;
> `mv $file $newname`;
oops that should be:
`mv "$file" "$newname"`;
So that files with spaces won't screw up.
Bijan
--
Bijan Soleymani <bijan@psq.com>
http://www.crasseux.com
Attachment:
signature.asc
Description: Digital signature