Ark: while( filehandle ) { ausgeben } und in skalar einlesen

SELF-Forum

while( filehandle ) { ausgeben } und in skalar einlesen

Ark
– Informationen zu den Bewertungsregeln

hiho

Keine Ahnung ob in diesem HTML Forum wer perl kann aber versuchen wirs mal!

Textdateien lesen und ausgeben tat ich immer so:

open(DATEI, "<text.txt") || die "nix da";
flock(DATEI, 2);
my @inhalt = <DATEI>;
flock(DATEI, 8);
close(DATEI);

for(@inhalt) { print $_; }

Nun muss also zuerst @inhalt gefüllt werden,
und dann nochmals @inhalt durchgegangen werden um es auszugeben.

1. Frage
Gesucht wird nach der Lösung mit welcher man
während der geöffneten textdatei solange sie sogar noch
unter  'flock' steht  ausgegeben werden kann.
Das war irgendwas mit  while(FILEHANDLE)  aber ich bekomms nicht mehr hin.

2. Frage:
Wie kann man eine Textdatei welche mehrere Zeilen enthält
in einen scalar einlesen?
my @inhalt = <DATEI>;   tut es in einen @array einlesen.
Der Versuch  my $my_scalar = <DATEI>;   gab nur die erste Zeile zurück.

Dangge :P
Ark (bzw. HexA für die Leute vom irc)

Beitrag melden
–
Informationen zu den Bewertungsregeln

  1. while( filehandle ) { ausgeben } und in skalar einlesen

    Cheatah
    −1 Informationen zu den Bewertungsregeln

    Hi,

    Das war irgendwas mit  while(FILEHANDLE)  aber ich bekomms nicht mehr hin.

    komisch, in Deinem Posting hast Du bereits zwei Ansätze genannt.

    Wie kann man eine Textdatei welche mehrere Zeilen enthält
    in einen scalar einlesen?

    Durch Setzen von $/ auf einen hinreichend günstigen Wert. Siehe perldoc perlvar.

    Cheatah

    --
    X-Self-Code: sh:( fo:} ch:~ rl:° br:> n4:& ie:% mo:) va:) de:] zu:) fl:{ ss:) ls:~ js:|
    X-Self-Code-Url: http://emmanuel.dammerer.at/selfcode.html
    X-Will-Answer-Email: No
    X-Please-Search-Archive-First: Absolutely Yes
    Beitrag melden
    −1
    Informationen zu den Bewertungsregeln

  2. while( filehandle ) { ausgeben } und in skalar einlesen

    Christian Kruse Homepage des Autors
    +2 Informationen zu den Bewertungsregeln

    你好 Ark,

    1. Frage
      Gesucht wird nach der Lösung mit welcher man
      während der geöffneten textdatei solange sie sogar noch
      unter  'flock' steht  ausgegeben werden kann.
      Das war irgendwas mit  while(FILEHANDLE)  aber ich bekomms nicht mehr hin.

    Du meinst vermutlich

      
print while <HANDLE>;
    1. Frage:
      Wie kann man eine Textdatei welche mehrere Zeilen enthält
      in einen scalar einlesen?
      my @inhalt = <DATEI>;   tut es in einen @array einlesen.
      Der Versuch  my $my_scalar = <DATEI>;   gab nur die erste Zeile zurück.

    Du musst den “Record Seperator” umsetzen:

      
my $scalar = '';  
{  
  local $/;  
  $scalar = <HANDLE>;  
}  
  
print $scalar;

    再见,
     CK

    --
    lim(3->4)(sqrt(3)) = 2
    http://wwwtech.de/
    Beitrag melden
    +2
    Informationen zu den Bewertungsregeln

  3. while( filehandle ) { ausgeben } und in skalar einlesen

    Struppi Homepage des Autors
    +1 Informationen zu den Bewertungsregeln

    Ergänzend noch:

    flock(DATEI, 8);
    close(DATEI);

    Das sollte man ncht tun. Denn close gibt die Datei explizit frei und unter ganz schlechten Umständen greift ein paraleller Prozeß genau zwichen flock und close zu und dann war das ganze gelocke für die Katz.

    Struppi.

    --
    http://javascript.jstruebig.de/
    Beitrag melden
    +1
    Informationen zu den Bewertungsregeln