tec: HTML-Ausgabe in Variabel abfangen

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

  1. use Mosche;

    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?

    Dann darfst du kein print() verwenden, sondern den String, der durch dein here-document zurückgegeben wird, an eine Variable zuweisen. Kurz:

    my $var = <<"EOF";
    <html>
    <head>...</head>
    </html>
    EOF

    use Tschoe qw(Matti);

    1. Danke, genau das was ich wissen wollte.

      Grüsse

      Tec

      use Mosche;

      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?

      Dann darfst du kein print() verwenden, sondern den String, der durch dein here-document zurückgegeben wird, an eine Variable zuweisen. Kurz:

      my $var = <<"EOF";
      <html>
      <head>...</head>
      </html>
      EOF

      use Tschoe qw(Matti);

  2. 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