lexikalische filehandles und format (Allgemeines zu Perl)

[thread]17241[/thread]

lexikalische filehandles und format

Tags: perl5 format Similar Threads

Readers: 23

Articles: hide open all | hide show old branches

+7 replies
bob.george

2012-03-15 14:26
User since
2011-09-02
104 articles
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
  12209 articles
  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 articles
    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
      12209 articles
      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
  12209 articles
  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
  14850 articles
  Admin1
  
  Schon mal sich durch EinUndAusgabeReportgenerator durchgelesen? Mein Kampf mit format war damals von dem Artikel gefolgt. ;)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- Linuxer
  
  2012-03-15 15:08
  User since
  2006-01-27
  3891 articles
  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.