Opened by bob.george at 2012-03-15 14:32
User since
2006-01-27
3875 Artikel
HausmeisterIn
2006-01-27
3875 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):
Das scheint bei mir jedenfalls irgendwie zu funktionieren.
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!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!