RE: Dateienamen mit einer Seriennummer versehen

27 Nov 2001


      
...
-----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

RE: Dateienamen mit einer Seriennummer versehen

Peter.Schopen＠rzf.fin-nrw.de