RE: Dateienamen mit einer Seriennummer versehen
-----Original Message----- From: suse@buddah.de [SMTP:suse@buddah.de] Sent: Tuesday, November 27, 2001 12:50 PM To: suse-linux@suse.com Subject: Dateienamen mit einer Seriennummer versehen
Ich muesste hier knapp 900 Dateien umbennen, allerdings so, dass sich ein Format ala datei0001.jpg datei0002.jpg usw. ergibt. Die Ausgangsdateien sind ueber mehrere Verzeichnisse verteilt und haben teilweise willkuerliche Namen.
[>>] Hallo, ein Ansatz: #!/usr/bin/perl # use File::Basename; $x=0; @FILES = `ls /home/scp/bin/*`; foreach (@FILES) { chomp; ($name, $path, $suffix) = fileparse("$_",'\..*$'); $x++; $neu = sprintf("%s%s%03d%s",$path,$name, $x, $suffix); print "$_ $neu\n"; rename $_ , $neu; } Gruesse Peter
participants (1)
-
Peter.Schopen@rzf.fin-nrw.de