Help for this page

Select Code to Download

Select or download this

my ($filename, $newfile);
foreach $filename (readdir(DIR))
{
    ($newfile = $filename) =~ tr/ /./;
    rename($filename, $newfile);
}

Select or download this

chdir $dir or die "Can't chdir to $dir: $!\n";
opendir(DIR, '.') or die "Can't open '.': $!\n";