Nummerieren von Dateien

dhchris

dhchris

Racing Tux
Hallo zusammen,

gibt es einen Befehl oder ein Programm, mit welchigem ich Dateien (Fotos etc.) durchnummerieren kann?

Danke
 
da du nicht sagst, wie du es durchnummerieren willst, hier mal eine moeglichkeit:
Code:
FILENO=0
for i in *.txt
do
   mv $i $FILENO$i
   FILENO=$(($FILENO + 1))
done

auf bald
oenone
 
oenone schrieb:
da du nicht sagst, wie du es durchnummerieren willst, hier mal eine moeglichkeit:
Code:
FILENO=0
for i in *.txt
do
   mv $i $FILENO$i
   FILENO=$(($FILENO + 1))
done

auf bald
oenone

Hi oneone,

ja so ähnlich sollte es sein.
Hab nicht dran gedacht, dazu zu schreiben, wie ich die Dateien nummerieren will.
So soll es dann ausschauen:

Dateiname0001,jpg, Dateiname0002.jpg .... Dateiname0123.jpg

Sprich er soll die alten Dateinamen komplett entfernen und einfach der Reihenfolge nach mit dem
neuen Dateinamen durchnummerieren.
Am besten schon von vornherein mit 4 Dezimalstellen.

Danke aber schon mal für den Weg...
 
Wenn du das Willst mußt du das Script ja nur ein wenig anpassen.
Anstatt von mv $i $FILENO$i
sollte ein mv $i Dateiname$FILENO genügen, wobei du den Dateinamen auch noch in eine Variable packen könntest.
 
hopfe schrieb:
Wenn du das Willst mußt du das Script ja nur ein wenig anpassen.
Anstatt von mv $i $FILENO$i
sollte ein mv $i Dateiname$FILENO genügen, wobei du den Dateinamen auch noch in eine Variable packen könntest.

Jepp, so ähnlich hab ich das auch mittlerweile gemacht, allerdings weiß ich nicht wie ich das mit den Dezimalstellen hinbekommen soll.

Beispiel:
Jetzt macht er Bild1.jpg , Bild2,jpg ... Bild12.jpg ...Bild123.jpg drauf

ich will haben

Bild0001.jpg, Bild0002.jpg ... Bild0012.jpg ... Bild0123.jpg

Geht das ohne viel Aufwand?
Bin leider nicht so bewandet im Scripte selber schreiben. Das meiste mach ich nur per
"Learning by doing" bzw. einfach was eintragen und ausprobieren was logisch erscheint.
 
Code:
#!/usr/bin/perl

open (FILELIST, "ls -A | grep .jpg |");
$count = 0;
while (<FILELIST>) {
	chomp $_;
	rename ($_, "Dateinamen"."0"x(3-length($count)).$count++.".jpg")
}
close FILELIST

Gruss, Phorus
 
Phorus schrieb:
Code:
#!/usr/bin/perl

open (FILELIST, "ls -A | grep .jpg |");
$count = 0;
while (<FILELIST>) {
	chomp $_;
	rename ($_, "Dateinamen"."0"x(3-length($count)).$count++.".jpg")
}
close FILELIST

Gruss, Phorus

Super, Danke Phorus... genau wie ich es wollte :respekt:
 

Ähnliche Themen

Gnome 45: Die Community fasst den aktuellen Stand zusammen

Probleme mit parallelen Zugriffen per SFTP

Läuft eine Unix-Variante auf PC aus dem Jahr 2015, der nicht Windows-11-fähig ist?

Perl Zeilen Auslesen(logdatei) und auswerten

Returncode ($?) bei find immer "0" ?

Zurück
Oben