Help for this page

Select Code to Download


  1. or download this
       
my ($newname) =$handle."\\".$entries[$i];
$newname =~ s/^([a-z])/\u$1/g;
rename ($handle."\\".$entries[$i], $newname);
  2. or download this
    my ($newname) =$entries[$i];
$newname =~ s/^([a-z])/\u$1/g;
rename ($handle."\\".$entries[$i], $handle."\\".$newname);