Frage bzgl. Filehandle (komisches Verhalten) (Allgemeines zu Perl)

[thread]15213[/thread]

Frage bzgl. Filehandle (komisches Verhalten)

Leser: 14

Articles: hide open all | hide show old branches

+2 replies
Gast undef

2010-06-28 19:30
Hallo zusammen,

ihr müsst mir mal bitte auf die Sprünge helfen, und zwar möchte ich aus einem File nur eine Zeile auslesen. Dabei bin ich auf ein für mich komisches Verhalten gestoßen und zwar:

Variante 1:
Code (perl): (dl )

1 2 3 4 5 6 7

#!/usr/bin/perl use strict; use warnings; open(FH,"<","./last.log") or die("cant open\n"); print(<FH>);
Output: 20100628180700

Variante 2:
Code (perl): (dl )

1 2 3 4 5 6 7

#!/usr/bin/perl use strict; use warnings; open(FH,"<","./last.log") or die("cant open\n"); print(<FH>) if(<FH>);
Output: nichts

Kann mir dieses verhalten Erklären? Blockiere ich das Filehandle irgendwie durch das if oder warum findet er so nichts?

Viele Grüße

mod-edit pq: perl-tags repariert/eingefügt
Last edited: 2010-06-28 19:35:14 +0200 (CEST)
- pq
  
  2010-06-28 19:38
  User since
  2003-08-04
  12208 Artikel
  Admin1
  bei der variante zwei wird durch das if (<FH>) schon die erste zeile gelesen.
  dann kriegt das print nichts mehr ab, wenn nur eine zeile drinsteht.
  
  wenn du aber sowieso nur eine zeile auslesen willst, mach einfach:
  
  Code (perl): (dl )
  
  my $line = <FH>;
  
  denn dein print <FH> würde alle zeilen auslesen, wenn es denn mehr als eine gäbe.
  
  lesetipp ausserdem:
  http://p3rl.org/perlopentut
  WasIsteinLexikalischerFileHandle
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2010-06-28 19:30.