Rename filer i perl

[GamePad]

Hei!

 

Har nettopp begynt med perl. Og lurer på hvordan du lager et script som renamer alle filene i ei mappe som slutter på *.doc til *.doc.old.

 

Mvh

G

[Torbjørn]

se på rename funksjonen, perldoc -f rename!

[superlaban]

$mappe="/min/mappe";

opendir(D,$mappe);

rename("$mappe/$_", "$mappe/$_.old") or die$! for grep {/\.doc$/} readdir(D);

closedir(D);

 

Eller hvis du er på unix/linux/cygwin:

 

 

find /min/mappe -name "*.doc" -exec mv {} {}.old \;