Opened by macMeck at 2005-11-26 00:20
User since
2003-08-04
162 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
162 Artikel
BenutzerIn
Hi,
ich hab mich grade mal an den Formaten in Perl versucht. Und bin irgendwie kläglich an meinem Unternehmen gescheitert. Die Formatierung an STDOUT, bzw. in ein File funktioniert. Aber ich möchte das Ergebnis des ganzen eigentlich in einer Variable haben. Die Doku bietet dazu folgendes Workaround:
Funktioniert soweit, aber nur, wenn man das Format so wie im Beispiel direkt unter dem swrite-Befehl angibt. Was ich möchte ist, das Format weiter oben definieren und dann immer mal wieder einen swrite-Befehl mit den entsprechenden Daten abfeuern.
Geht das irgendwie und kann mir damit jemand helfen?
macMeck
ich hab mich grade mal an den Formaten in Perl versucht. Und bin irgendwie kläglich an meinem Unternehmen gescheitert. Die Formatierung an STDOUT, bzw. in ein File funktioniert. Aber ich möchte das Ergebnis des ganzen eigentlich in einer Variable haben. Die Doku bietet dazu folgendes Workaround:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use Carp;
sub swrite {
croak "usage: swrite PICTURE ARGS" unless @_;
my $format = shift;
$^A = "";
formline($format,@_);
return $^A;
}
$string = swrite(<<'END', 1, 2, 3);
Check me out
@<<< @||| @>>>
END
print $string;
Funktioniert soweit, aber nur, wenn man das Format so wie im Beispiel direkt unter dem swrite-Befehl angibt. Was ich möchte ist, das Format weiter oben definieren und dann immer mal wieder einen swrite-Befehl mit den entsprechenden Daten abfeuern.
Geht das irgendwie und kann mir damit jemand helfen?
macMeck
It all works, as long as it's documented!