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