Wenn Datei existiert: Dateinamen ändern - #75443 (Allgemeines zu Perl)

Dubu

2003-12-11 20:30

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

[quote=pktm,10.12.2003, 19:26]

Code: (dl )

            while( -e $dest || $cnt != MAXTRASHCOPYS ){

[/quote]
Falshce Logik. Die Schleife wird erst beendet, wenn die komplette Bedingung false ist, also die Zieldatei nicht existiert und $cnt == MAXTRASHCOPYS ist.

Mein Vorschlag:

Code: (dl )

while( -e $dest && $cnt < MAXTRASHCOPYS ) {
    # ...
}
# kopiere

oder, wenn die Datei mit der groessten Nummer nicht ueberschrieben werden soll:

Code: (dl )

while( -e $dest  ){
    # ...
}

if ($cnt < MAXTRASHCOPYS) {
   # kopiere
}