Hi,
habe in dem unten genannten Script ein „Brett vorm Kopp“ und bin
für jede Hilfe sehr dankbar.
Ich muss eine Abfrage einbauen , wo ich in dem besagten
Verzeichnis überprüfen muss, ob eine Datei wie 00001k1.jpg
vorhanden ist,
wenn nicht dann überprüfe, ob eine Datei mit der Nummer
00001k2.jpg
vorhanden ist usw. Das Bild wird dann mit der nächsten
Endnummer
abgespeichert, die um eine Zahl erhöht wird.
00001k1.jpg --> ist vorhanden
00001k2.jpg --> ist vorhanden
00001k3.jpg --> nicht vorhanden, also bekommt das Bild die
Nummer
00001k3.jpg
Siehe # Zeile 1:
Mir ist klar, dass ich hier den Autoinkrement Operator $a++; um
eins immer erhöhen muss, damit ich dann die Datei z.b.
00001k3.jpg produzieren kann.
Wie kriege ich es hin, das er immer den entsprechenden Wert
setzt, d.h. wenn 00001k3.jpg vorhanden ist, dann produziere
00001k4.jpg und fertig ist der Vorgang.
Danke im voraus…
@verz = glob("/SiteImages/produktbilder/galerie/*");
foreach $i (@name)
{
$a = 0;
$a++ ;
if (scalar(grep(/$i$a.jpg/, @verz) > 0) )
{
$a++; # Zeile 1
copy("$oldfile$i.jpg", „$newfile$i$a.jpg“)
or die „copy failed: $!“;
print („Die Datei „.$name.“ ist schon da!\n“);
print ("(1)Daten kopiert\n");
print „$i$a.jpg“."\n" ;
print „$i$a.jpg“."\n" ;
next;
}
elsif (scalar(grep(/$i$a.jpg/, @verz) > 0) )
{
copy("$oldfile$i.jpg", „$newfile$i$a.jpg“)
or die „copy failed: $!“;
print ("(2) Daten kopiert\n");
print „$i$a.jpg“."\n" ;
#next;
}
}
)