FORMAT_TOP (solved) (Allgemeines zu Perl)

[thread]19320[/thread]

FORMAT_TOP [solved]

Tags: perl5 Similar Threads

Readers: 11

Articles: hide open all | hide show old branches

+3 replies
guest Wastl

2014-10-03 15:54
Moin Community,

habe eine kurze Frage zu perlform. Laut Definition lautet der Formatheader genau wie der Body plus angehängtem _TOP. Funktioniert bei STDOUT auch ohne Probleme, bei einem frei gewählten Formatnamen dagegen nicht.
Code: (dl )

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

$name = "Wastl"; $~ = NAME; write; format NAME = @<<<<<<<< $name . format NAME_TOP = Name .
Dieser Code funktioniert leider nicht wie gewünscht, erst ein hinzufügen von
Code: (dl )

$^ = NAME_TOP;
führt zum gewünschten Ergebnis.
Mache ich da etwas falsch oder muss das so sein?
Last edited: 2014-10-03 15:56:21 +0200 (CEST)
- +2 replies
- GwenDragon
  
  2014-10-03 17:22
  User since
  2005-01-17
  14741 articles
  Admin1
  Du musst bei anderen Formate sowohl $^als auch $~ setzen.
  http://perldoc.perl.org/perlform.html#Format-Varia...
  
  *_TOP wird nicht automatisch gesetzt, nur weil du das Ausgabe-Format mit $~ neu gesetzt hast.
  
  Teste es mal:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
  
  my $name = "Wastl"; print "\$^: $~ \n"; print "\$^: $^ \n"; $~ = TEST; #$^ = TEST_TOP; format TEST = @<<<<<<<< $name . format TEST_TOP = Name . print "\$^: $~ \n"; print "\$^: $^ \n"; write;
  
  Last edited: 2014-10-03 17:24:45 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - guest Wastl
    
    2014-10-03 17:52
    
    Danke für die schnelle Antwort, womit meine Frage denn auch beantwortet wäre.
    Last edited: 2014-10-03 18:01:07 +0200 (CEST)

View all threads created 2014-10-03 15:54.