Textdatei einlesen, ändern, neue erstellen: open (DATEI, "text.txt") (Seite 4) (Graphische Oberflächen)

[thread]4650[/thread]

Textdatei einlesen, ändern, neue erstellen: open (DATEI, "text.txt") (Seite 4)

Leser: 18

GUIfreund

2014-12-12 16:39

User since
2011-08-08
559 Artikel
BenutzerIn
[default_avatar]

Tk hat 2 nützliche Methoden, die die Eingabe von Dateinamen deutlich angenehmer machen: getOpenFile (Dateiname zum Lesen) und getSaveFile (Dateiname zum Schreiben). Sie werden so verwendet:

Code (perl): (dl )

    use Encode;
    .....
    my $infile= $mw->getOpenFile();
    $infile or die "Kein Eingabename";
    $infile= encode( 'iso-8859-1', $infile );
    $infile or die "Fehler bei encode infile ";
    open (my $handle, '<', $infile) or die "Konnte '$infile' nicht oeffnen: $!\n";

Das Encode ist nützlich, wenn im Dateinamen (oder im Pfad dorthin) Umlaute (oder andere nicht-ASCII-Zeichen) vorkommen.

getOpenFile und getSaveFile kennen noch einige nützliche Optionen.

Die Parameter von open setze ich gerne in Klammern, wenn danach noch etwas folgt. So sieht man leichter, wo die Parameterliste endet, und schützt sich vor unliebsamen Überraschungen.

Gruß
GUIfreund

View all threads created 2003-09-16 00:10.