Bruk av 'rename-kommandoen'

[rc-halv]

Kan man velge å bruke rename kun på filer og ikke mapper/kataloger?

Dette er det jeg har, det bytter fra filendelse til en annen:

rename s/\.$2/.$3/ *.$2

 

Kan kanskje mv brukes?

[trtrtr]

uklart hva du prøver på her - dette henger ikke helt sammen. se "perldoc -f rename" for info on rename.

 

Normal vil en bruke opendir/readdir til å håndtere innhold i en katalog:

 

opendir DIR, $dir or die $!;

while ($fileOrDir = readdir DIR) {

#skip mapper

next if (-d $fileOrDir);

#..

}

[Preben01]

En fin en jeg liker er:

 

my @files_in_folder = </home/bruker/*.log>;

foreach(@files_in_folder){

system(); # Rename kommando her ... eller hva det er du egentlig prøver å få til.

}

 

Bare smakssak. Mindre kode

[Torbjørn]

## med litt mer ekstremgolfing kan det løses slik:

perl -le '($new=$_) =~ s/\.foo/.bar/, rename $_, $new for @ARGV' *