hi,
möglicherweise suchst du so was:
erstelle einen temp handler
use IO::File;
$fh = IO::File->new_tmpfile();
ausgabe auf diesen handler lenken
select $fh;
in den handler schreiben
print "wo du wolle\n";
zurueck zum anfang
seek $fh,0,0;
ausgabe wieder auf STDOUT setzen
select STDOUT;
zur kontrolle den kram ausgeben
while(<$fh>){
print;
# oder mach was du willst
}
Rolf
#######################################################
Hallo zusammen
Habe folgendes Problem: Habe ein Script das gibt mir über den Print-Befehl diversen HTML-Code an den Browser aus.
Beispeil:
print <<"EOM" ;
</table>
</center>
</div>
<p><br></p>
<hr noshade size="1">
<div align="center">
<center>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><font face="Arial" size="1">
<img border="0" src="$path/images/Aufz_begin.gif" width="60" height="21"></font></td>
<td bgcolor="#EEEEEE">
<p align="center"><font face="Arial" size="1"><font color="#000000">[
</font>
EOM
Ich möchte nun diesen HTML-Code weiterverarbeiten und benötige ihn in einer Variabel. Wie muss ich da vorgehen um den Script anstatt an den Browser an eine Vraibel zusenden?
Danke und Grüsse
Tec