lexikalische filehandles und format (Allgemeines zu Perl)

[thread]17241[/thread]

lexikalische filehandles und format

Tags: perl5 format Ähnliche Threads

Leser: 23

Articles: hide open all | hide show old branches

+7 replies
bob.george

2012-03-15 14:26
User since
2011-09-02
104 Artikel
BenutzerIn
Hallo,
ich versuche gerade den format-Befehl auf das übergebene Filehandle anzuwenden, bekomme aber eine Syntax-Error:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

sub main{ open (my $log_fh, ">$dateiNameLog") || Fehlerausgang("Fehler bei $dateiNameLog: $!"); &subroutine($log_fh); } sub subroutine{ my($log) = @ARG; format $log @<<<<<<<<<<@<<<<<<<< $wert1, $wert2 write . }
Splitted from Filehandle an Funktion übergeben msg #152848
Last edited: 2012-03-15 14:32:17 +0100 (CET)
- +3 replies
- pq
  
  2012-03-15 14:33
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  habe das mal in einen eigenen thread ausgelagert, da es nichts mit der übergabe von filehandles an subroutinen zu tun hat, sondern grundsätzlich mit lexikalischen filehandles und der format-funktion.
  das gleiche problem hättest du auch ohne subroutine.
  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
  - +2 replies
  - bob.george
    
    2012-03-15 14:35
    
    User since
    2011-09-02
    104 Artikel
    BenutzerIn
    
    Ah, okay, das hab ich natürlich nicht ausprobiert. Und wie muss es dann richtig lauten?
    - pq
      
      2012-03-15 14:42
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      das weiss ich leider nicht, ich habe format nie benutzt.
      
      übrigens ist es immer hilfreich, wenn du eine fehlermeldung bekommst, diese auch hier zu posten.
      du gehst ja auch nicht zum arzt und lässt ihn raten, wo es dir wehtut.
      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:49
  User since
  2003-08-04
  12208 Artikel
  Admin1
  eventuell kannst du mit select $log; arbeiten.
  
  Code (perl): (dl )
  
  1 2 3
  
  my $oldfh = select $log; # format, write select $oldfh;
  
  und im format dann ohne format-name.
  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
- GwenDragon
  
  2012-03-15 15:06
  
  User since
  2005-01-17
  14533 Artikel
  Admin1
  
  Schon mal sich durch EinUndAusgabeReportgenerator durchgelesen? Mein Kampf mit format war damals von dem Artikel gefolgt. ;)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- Linuxer
  
  2012-03-15 15:08
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  format bekommt einen Identifier, keinen Filehandle, übergeben.
  Für die Standard-kanäle heißen die mehr oder minder zufällig gleich.
  Siehe dafür bitte auch in die Doku von perlform.
  
  Wie von pq schon angemerkt, wirst Du wohl den gewünschten Filehandle auswählen und dann 2 Spezialvariablen definieren.
  
  Hier mal ein anhand der Perldoc zusammengeschustertes Testbeispiel (Ich habe Formate auch noch nie wirklich verwendet):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
  
  #! /usr/bin/perl use strict; use warnings; use English qw( -no_match_vars ); open my $wh, '>', 'dummy.txt' or die "open(dummy.txt,w): $!\n"; format MYOUTPUT = @### @.### @##.### @### @### ^#### 42, 3.1415, 0, 0, 10000, 0 . # "verknuepfe" Format mit Dateihandle $wh my $old_fh = select($wh); $FORMAT_NAME = "MYOUTPUT"; # vorherigen Zustand wieder herstellen select($old_fh); # Ausgabe schreiben write $wh; close $wh;
  
  Das scheint bei mir jedenfalls irgendwie zu funktionieren.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2012-03-15 14:32.