Perl Verzeichnis durchsuchen - #193177 (Allgemeines zu Perl)

styx-cc

2021-03-22 15:05

User since
2006-05-20
533 Artikel
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.