Perl Verzeichnis durchsuchen (Allgemeines zu Perl)

[thread]21176[/thread]

Perl Verzeichnis durchsuchen

Tags: perl5 Similar Threads

Readers: 8

Articles: hide open all | hide show old branches

+3 replies

guest Jonas

2021-03-22 13:59

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 )

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)

styx-cc

2021-03-22 15:05

User since
2006-05-20
533 articles
BenutzerIn

user image

Hi, ich vermute das ihm das < vor dem C: im Dateinamen nicht gefällt, besser:

Code: (dl )

my $filename = "C:/Users/jonas/OneDrive/...";

Ein zwei Anmerkungen zum Code:

Code (perl): (dl )

$count = $count + 1;

schreibt man gewöhnlich mit dem Auto-Increment-Operator:

Code (perl): (dl )

$count++;

und besser indirekte Filehandles benutzen und auch Fehler behandeln (die $!), statt

Code (perl): (dl )

open(Steckbrief, $filename);

Code (perl): (dl )

1
2
3

open my $steckbrief, '<', $filename or die $!;
...
close $steckbrief;

siehe auch:
https://perlmaven.com/open-files-in-the-old-way

Zusammen ergibt das in etwa:

Code (perl): (dl )

if ($dec == 1) {
    my $count = 0;
    my $filename = "C:/Users/jonas/OneDrive/Dokumente/PerlTutorial/Steckbriefe/Steckbrief_$count.txt";
        
    do {
        say("$filename already exists!");
        $count++;
                
    } while (-e $filename);   
    
    # ob lesen oder (über)schreiben gewünscht ist muss berücksichtig werden (<, >)
    #siehe perl-maven-link, der hat auch weiterführendes
    open $steckbrief, '>', $filename or die $!;
    print $steckbrief$bunch_of_infos;
    close $steckbrief;

    say "Ihr Steckbrief wurde erstellt!";
}

Beste Grüße
Last edited: 2021-03-22 15:07:48 +0100 (CET)

Pörl.

guest 0xdeadbeef

2021-03-22 15:36

Code: (dl )

 my $filename = "C:/Users/jonas/OneDrive/Dokumente/PerlTutorial/Steckbriefe/Steckbrief_$count.txt";
        
    do {
        say("$filename already exists!");
        $count++;
                
    } while (-e $filename);

Dort wird $filename aber nicht hoch gezählt.
Ich nehme an du wolltest das so:

Code: (dl )

 my $filename = "C:/Users/jonas/OneDrive/Dokumente/PerlTutorial/Steckbriefe/Steckbrief_$count.txt";
        
    do {
        say("$filename already exists!");
        $count++;
        $filename = "C:/Users/jonas/OneDrive/Dokumente/PerlTutorial/Steckbriefe/Steckbrief_$count.txt";
                
    } while (-e $filename);

Last edited: 2021-03-22 15:49:08 +0100 (CET)

View all threads created 2021-03-22 13:59.