opendir( DIR, '.' );
    my @files = readdir(DIR);
closedir( DIR );
foreach my $file ( @files ) {
    next if $file =~ /\./;
    rename( $file, "$file.pl" );
    print "$file => $file.pl\n";
}
print "Complete";
my $read = <STDIN>;

Save this script to your foswiki/bin folder and execute it with Perl.

-- CosmicNet - 16 May 2011

---

This topic: Support > InstallingOnSpecificPlatforms > FoswikiOnWindowsIISAndPerl > PLRenameScript
Topic revision: 16 May 2011, CosmicNet

---