Thread Perl Verzeichnis durchsuchen (2 answers)
Opened by Jonas at 2021-03-22 13:59

Gast Jonas
 2021-03-22 13:59
#193176 #193176
Hallo ich bin ein absoluter Perl Neuling. Kann mir wer sagen wieso meine do/while Schleife nur einmal durchlaufen wird? Ich wollte erzielen, dass geprüft wird ob eine Datei vorhanden ist und falls ja der count nach oben geht, so lange bis der Dateiname nicht mehr vergeben ist. Dann soll eine neue Datei erstellt werden.

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

if ($dec == 1)
{
        my $count = 0;
        my $filename = "<C:/Users/jonas/OneDrive/Dokumente/PerlTutorial/Steckbriefe/Steckbrief_$count.txt";
        
        do{
                say("$filename already exists!");
                $count = $count + 1;
                
        }while(-e $filename);   
        
open(Steckbrief, $filename);
print Steckbrief $bunch_of_infos;
close(Steckbrief);
say ("Ihr Steckbrief wurde erstellt!");

}

Last edited: 2021-03-22 14:41:04 +0100 (CET)

View full thread Perl Verzeichnis durchsuchen