Filehandle an Funktion übergeben (gelöst) (Allgemeines zu Perl)

[thread]16771[/thread]

Filehandle an Funktion übergeben [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+6 replies
KCobain

2011-10-04 15:17

User since
2011-10-03
34 Artikel
BenutzerIn

Moinsen,
ist es Möglich ein filehandle als parameter an eine Funktion zu übergeben?
- +2 replies
- dgw
  
  2011-10-04 15:38
  User since
  2010-08-16
  27 Artikel
  BenutzerIn
  Ja.
  
  Kurzes Beispiel:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  use strict ; open( my $fh , '<' , 'beispiel.txt' ) ; funktion( $fh ) ; close( $fh ) ; sub funktion { my ( $filehandle ) = @_ ; print $filehandle "Beispiel\n" ; }
  
  Just my 2 cents.
  Daniel
  - payx
    
    2011-10-04 16:31
    User since
    2006-05-04
    564 Artikel
    BenutzerIn
    
    Hallo Daniel,
    
    mit dieser Zeile 3 wird es nicht funktionieren:
    
    2011-10-04T13:38:54 dgw
    
    Code (perl): (dl )
    
    open( my $fh , '<' , 'beispiel.txt' ) ;
    
    Dafür aber so:
    
    Code (perl): (dl )
    
    open( my $fh , '>' , 'beispiel.txt' ) ;
    
    Sicher nur ein Tippfehler – apropos Tipp – Tipp: use warnings; ;-)
    
    Grüße
    payx
- +3 replies
- topeg
  
  2011-10-04 15:39
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Ja das geht, wenn du keine Bareword Filehandles benutzt.
  
  Code (perl): (dl )
  
  1 2
  
  open(my $filehandle, '<', $file); funktion($filehandle);
  
  oder
  
  Code (perl): (dl )
  
  1 2
  
  my $filehandle=\*DATA; funktion($filehandle);
  
  "Old Style" Filehandles sollte man grundsätzlich nicht benutzen, da sie immer global sind, egal wo sie zuerst verwendet wurden. Bei größeren Programmen kann es dabei durchaus zu Verwirrungen kommen, wenn ein Barword mehrfach verwendet wird.
  - pq
    
    2011-10-04 16:21
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    mit bareword filehandles geht es aber auch. wenn man z.b. STDERR übergeben will:
    funktion(\*STDERR);
    
    in der sub dann ganz normal als lexikalischen filehandle benutzen.
    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
  - pq
    
    2012-03-15 14:32
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    Splitted to lexikalische filehandles und format
    
    Original message by 'bob.george':
    
    Quote
    Hallo,
    ich versuche gerade den format-Befehl auf ...
    
    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 2011-10-04 15:17.