next anstelle von die beim Datei öffnen (gelöst) - #158504 (Allgemeines zu Perl)

Lebewesen

2012-05-23 10:44

User since
2011-09-09
62 Artikel
BenutzerIn

user image

Hallo,

ich wollte Fragen ob dies möglich ist, da next auch in einem Block steht.

Mir fällt im Augenblick nicht ein, wie ich dies testen könnte.

Code (perl): (dl )

for (my $i = 0; $i <= $anzahl; $i++) {
    my $DatName = $Dateien[$i];         #Dateiname
    #Wenn Datei nicht geöffnet werden kann, mit der nächsten Datei fortsetzen
    open my $InputDatei, '<', $DatName or {say "Cannot open filename: $!";next;}
    { local $/ = undef; $daten = <$InputDatei>; }
    close $InputDatei;
    &Datenverarbeitung($daten);
}