Beitrag von Helmut Meisl (119 Beiträge) am Sonntag, 28.Februar.2016, 17:43.
Wie Unterprogramm mit SUB aufrufen
Antworten
Beitrag von Sander (8133 Beiträge) am Sonntag, 28.Februar.2016, 21:31.
Re: Wie Unterprogramm mit SUB aufrufen
Antworten
Beitrag von Helmut Meisl (119 Beiträge) am Montag, 29.Februar.2016, 09:17.
Re: Wie Unterprogramm mit SUB aufrufen
Hallo, Sander!
Vorerst mal Danke!
Leider geht mein Script dennoch nicht.
Was mache ich falsch?
-----
$HAG0 = $multi * 70 + 6;
out "<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>DATUM </font></td>
<td width=$HAG0 bgcolor=#CCCCCC align=left><font face=Arial size=2>HEIZUNG kWh </font></td>
</tr></table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1> </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>10 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>20 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>30 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>40 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>50 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>60 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>70 </font></td>
</tr>
</table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT1 </font></td>
<td width=$HAG1 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA1 </font></td>
</tr>
</table>
&lineal();
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT2 </font></td>
<td width=$HAG2 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA2 </font></td>
</tr>
</table>
&lineal();
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT3 </font></td>
<td width=$HAG3 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA3 </font></td>
</tr>
</table>
&lineal();
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT4 </font></td>
<td width=$HAG4 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA4 </font></td>
</tr>
</table>
&lineal();
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT5 </font></td>
<td width=$HAG5 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA5 </font></td>
</tr>
</table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1> </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>10 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>20 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>30 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>40 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>50 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>60 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>70 </font></td>
</tr>
</table>
";
</perl>
sub lineal
{
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1> </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>10 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>20 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>30 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>40 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>50 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>60 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>70 </font></td>
</tr>
</table>
}
Antworten
Beitrag von richard (1187 Beiträge) am Montag, 29.Februar.2016, 10:06. WWW: posaunenchor-rhoden.de
Re: Wie Unterprogramm mit SUB aufrufen
Bin zwar nicht Sander ...
Du mußt die Subroutine unter Perl aufrufen - nicht innerhalb eines out-Blocks.
Außerdem in der Routine "out <<EOF;" und "EOF" ergänzen, so wie Sander das schon gezeigt hatte.
Die Subroutine selbst muß natürlich auch innerhalb eines Perl-Blocks definiert werden.
"return" statt "return;"
Das, sollte schonmal funktionieren:
<perl>
$HAG0 = $multi * 70 + 6;
$TE = $multi * 10;
out "<table border=0 cellspacing=1 cellpadding=0><tr><td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>DATUM </font></td><td width=$HAG0 bgcolor=#CCCCCC align=left><font face=Arial size=2>HEIZUNG kWh </font></td>
</tr></table>
";
&lineal();
out "
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1> </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>10 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>20 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>30 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>40 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>50 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>60 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>70 </font></td>
</tr>
</table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT1 </font></td>
<td width=$HAG1 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA1 </font></td>
</tr>
</table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT2 </font></td>
<td width=$HAG2 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA2 </font></td>
</tr>
</table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT3 </font></td>
<td width=$HAG3 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA3 </font></td>
</tr>
</table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT4 </font></td>
<td width=$HAG4 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA4 </font></td>
</tr>
</table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT5 </font></td>
<td width=$HAG5 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA5 </font></td>
</tr>
</table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1> </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>10 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>20 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>30 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>40 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>50 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>60 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>70 </font></td>
</tr>
</table>
";
sub lineal
{
out <<EOF;
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1> </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>10 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>20 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>30 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>40 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>50 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>60 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>70 </font></td>
</tr>
</table>;
EOF
return
}
</perl>
Antworten
Beitrag von richard (1187 Beiträge) am Montag, 29.Februar.2016, 10:12. WWW: posaunenchor-rhoden.de
Re: Wie Unterprogramm mit SUB aufrufen
Sorry, doch "return;"
In der Subroutine ist aber am Ende der Tabelle jetzt ein Semikolon zuviel.
Antworten
Beitrag von Helmut Meisl (119 Beiträge) am Montag, 29.Februar.2016, 10:18.
Re: Re: Wie Unterprogramm mit SUB aufrufen
Antworten
Beitrag von richard (1187 Beiträge) am Montag, 29.Februar.2016, 10:31. WWW: posaunenchor-rhoden.de
Re: Re: Wie Unterprogramm mit SUB aufrufen
Antworten
Beitrag von Helmut Meisl (119 Beiträge) am Montag, 29.Februar.2016, 10:42.
Re: Re: Re: Wie Unterprogramm mit SUB aufrufen
Antworten
Beitrag von richard (1187 Beiträge) am Montag, 29.Februar.2016, 10:47. WWW: posaunenchor-rhoden.de
Re: Re: Re: Wie Unterprogramm mit SUB aufrufen
Nein. Das machste doch schon mit dem EOF.
Nimm mal exakt den meinen Code von 10:31 (der geht) und schreib was dabei rauskommt.
Antworten
Beitrag von Helmut Meisl (119 Beiträge) am Montag, 29.Februar.2016, 10:51.
Re: Re: Re: Re: Wie Unterprogramm mit SUB aufrufen
... habe genau 1:1 den Code übernommen.
Nach dem Aufruf des Sub kommt folgende Fehermeldung:
[ Fehler: Fehlerhafter Perl Code in /meisl.info/E2016_Kopie:
Undefined subroutine &main::lineal called at (eval 89429) line 31. ]
Antworten
Beitrag von richard (1187 Beiträge) am Montag, 29.Februar.2016, 10:57. WWW: posaunenchor-rhoden.de
Re: Re: Re: Re: Wie Unterprogramm mit SUB aufrufen
Hast Du die Subroutine auch innerhalb eines <perl></perl>-Blocks?
Im Post von 09:17 war das nicht der Fall und das würde auch die Fehlermeldung erklären.
Antworten
Beitrag von Helmut Meisl (119 Beiträge) am Montag, 29.Februar.2016, 11:00.
Re: Re: Re: Re: Re: Wie Unterprogramm mit SUB aufrufen
... ja, sollte schon so korrekt sein.
----
$HAG0 = $multi * 70 + 6;
out "<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>DATUM </font></td>
<td width=$HAG0 bgcolor=#CCCCCC align=left><font face=Arial size=2>HEIZUNG kWh </font></td>
</tr></table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1> </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>10 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>20 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>30 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>40 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>50 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>60 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>70 </font></td>
</tr>
</table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT1 </font></td>
<td width=$HAG1 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA1 </font></td>
</tr>
</table>";
lineal();
out "
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT2 </font></td>
<td width=$HAG2 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA2 </font></td>
</tr>
</table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT3 </font></td>
<td width=$HAG3 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA3 </font></td>
</tr>
</table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT4 </font></td>
<td width=$HAG4 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA4 </font></td>
</tr>
</table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT5 </font></td>
<td width=$HAG5 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA5 </font></td>
</tr>
</table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1> </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>10 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>20 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>30 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>40 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>50 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>60 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>70 </font></td>
</tr>
</table>
";
----
Antworten
Beitrag von richard (1187 Beiträge) am Montag, 29.Februar.2016, 11:10. WWW: posaunenchor-rhoden.de
Re: Re: Re: Re: Re: Wie Unterprogramm mit SUB aufrufen
Und wo ist da die Subroutine?
Ich habe jetzt Deinen eben geposteten Code genommen, mein Stück von 10:31 unten dran getan und das funktioniert hier in kostnix. Und zwar genau so:
$HAG0 = $multi * 70 + 6;
$TE = $multi * 10;
out "<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>DATUM </font></td>
<td width=$HAG0 bgcolor=#CCCCCC align=left><font face=Arial size=2>HEIZUNG kWh </font></td>
</tr></table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1> </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>10 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>20 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>30 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>40 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>50 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>60 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>70 </font></td>
</tr>
</table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT1 </font></td>
<td width=$HAG1 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA1 </font></td>
</tr>
</table>";
lineal();
out "
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT2 </font></td>
<td width=$HAG2 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA2 </font></td>
</tr>
</table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT3 </font></td>
<td width=$HAG3 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA3 </font></td>
</tr>
</table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT4 </font></td>
<td width=$HAG4 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA4 </font></td>
</tr>
</table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=100 bgcolor=#CCCCCC align=right><font face=Arial size=2>$DT5 </font></td>
<td width=$HAG5 bgcolor=#FE642E ></td>
<td width=20 bgcolor=white align=right><font face=Arial size=2>$HA5 </font></td>
</tr>
</table>
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1> </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>10 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>20 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>30 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>40 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>50 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>60 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>70 </font></td>
</tr>
</table>
";
sub lineal
{
out <<EOF;
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1> </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>10 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>20 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>30 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>40 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>50 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>60 </font></td>
<td width=$TE bgcolor=#CCCCCC align=right><font face=Arial size=1>70 </font></td>
</tr>
</table>
EOF
return;
}
</perl>
Antworten
Beitrag von Helmut Meisl (119 Beiträge) am Montag, 29.Februar.2016, 11:13.
Re: Re: Re: Re: Re: Re: Wie Unterprogramm mit SUB aufrufen
... hab genau das gleiche gemacht, und da geht der Code auch.
Da muss ich wohl noch nach irgend einem Zeichen suchen, das dort nicht hingehört.
Jedenfalls VIELEN DANK für die Geduld!
Antworten
Beitrag von richard (1187 Beiträge) am Montag, 29.Februar.2016, 11:20. WWW: posaunenchor-rhoden.de
Re: Re: Re: Re: Re: Re: Wie Unterprogramm mit SUB aufrufen
So schlimm wars nicht.
Bist Du es denn jetzt zufrieden oder müssen wir noch weiter suchen?
Antworten
Beitrag von Helmut Meisl (119 Beiträge) am Montag, 29.Februar.2016, 11:21.
Re: Re: Re: Re: Re: Re: Re: Wie Unterprogramm mit SUB aufrufen
... ich such mal weiter nach irgend welchen versteckten Steuerzeichen.
Antworten
Beitrag von Helmut Meisl (119 Beiträge) am Montag, 29.Februar.2016, 16:56.
Re: Re: Re: Re: Re: Re: Re: Re: Wie Unterprogramm mit SUB aufrufen
Ich komm nicht wirklich weiter. Da muss ich einen Syntax-Fehler haben.
Ich habe ein ganz einfaches Testtemplate gemacht.
Auch damit bekomme ich folgende Fehlermeldung:
test start
[ Fehler: Fehlerhafter Perl Code in /meisl.info/testsub:
Undefined subroutine &main::lineal called at (eval 17) line 4. ]
sub lineal { out < 10 20 30 40 50 60 70 EOF return; }
Nachstehend das (fehlerhafte) Template:
lineal();
out "test ende";
sub lineal
{
out <<EOF;
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=150 bgcolor=#CCCCCC align=right><font face=Arial size=1> </font></td>
<td width=150 bgcolor=#CCCCCC align=right><font face=Arial size=1>10 </font></td>
<td width=150 bgcolor=#CCCCCC align=right><font face=Arial size=1>20 </font></td>
<td width=150 bgcolor=#CCCCCC align=right><font face=Arial size=1>30 </font></td>
<td width=150 bgcolor=#CCCCCC align=right><font face=Arial size=1>40 </font></td>
<td width=150 bgcolor=#CCCCCC align=right><font face=Arial size=1>50 </font></td>
<td width=150 bgcolor=#CCCCCC align=right><font face=Arial size=1>60 </font></td>
<td width=150 bgcolor=#CCCCCC align=right><font face=Arial size=1>70 </font></td>
</tr>
</table>
EOF
return;
}
Antworten
Beitrag von richard (1187 Beiträge) am Montag, 29.Februar.2016, 17:28. WWW: posaunenchor-rhoden.de
Re: Re: Re: Re: Re: Re: Re: Re: Wie Unterprogramm mit SUB aufrufen
Antworten
Beitrag von Helmut Meisl (119 Beiträge) am Montag, 29.Februar.2016, 17:44.
Re: Re: Re: Re: Re: Re: Re: Re: Re: Wie Unterprogramm mit SUB aufrufen
RICHARD sei Dank!
Ich kann den Fehler jetzt - hinterher ist man immer schlauer - ganz einfach benennen.
Der Aufruf der Subroutine und die Subroutine selbst müssen (!) innerhalb des gleichen Perl-Aufrufs sein.
Ich hatte die Subroutine in einem separaten Perl-Bereich.
Muss man wissen ...
Antworten
Beitrag von richard (1187 Beiträge) am Montag, 29.Februar.2016, 17:50. WWW: posaunenchor-rhoden.de
Re: Re: Re: Re: Re: Re: Re: Re: Re: Wie Unterprogramm mit SUB aufrufen
Oder Du stellst die Subroutine nach oben, dann sollte es auch mit verschiedenen Perlbereichen klappen.
Aber bevor Du das probierst mache ich meinen Rechner erstmal aus. Schönen Abend noch.
Antworten
Beitrag von Pouraga (1396 Beiträge) am Dienstag, 1.März.2016, 14:31.
Re: Re: Re: Re: Re: Re: Re: Re: Re: Re: Wie Unterprogramm mit SUB aufrufen
Darf ich jetzt noch "Klugscheissen", dass es kein "Programm" ist was du da mehrfach verwenden willst. Für perl ist es schlicht eine Zeichenkette.
$lineal = <<"EOF";
<table border=0 cellspacing=1 cellpadding=0><tr>
<td width=150 bgcolor=#CCCCCC align=right><font face=Arial size=1> </font></td>
<td width=150 bgcolor=#CCCCCC align=right><font face=Arial size=1>10 </font></td>
<td width=150 bgcolor=#CCCCCC align=right><font face=Arial size=1>20 </font></td>
<td width=150 bgcolor=#CCCCCC align=right><font face=Arial size=1>30 </font></td>
<td width=150 bgcolor=#CCCCCC align=right><font face=Arial size=1>40 </font></td>
<td width=150 bgcolor=#CCCCCC align=right><font face=Arial size=1>50 </font></td>
<td width=150 bgcolor=#CCCCCC align=right><font face=Arial size=1>60 </font></td>
<td width=150 bgcolor=#CCCCCC align=right><font face=Arial size=1>70 </font></td>
</tr>
<table>
EOF
out $lineal
Hätte es auch getan
Und wenn es nicht ganz so 90er sein soll: ;)
<style>
.lineal {border-collapse: separate;
border-spacing: 1px 1px;
font-family: Arial, sans-serif;
font-size:0.6em; text-align: right;}
.lineal td {width:148px;
background-color: #CCCCCC;}
</style>
<table class="lineal">
<tr><td></td><td>10</td><td>20</td><td>30</td><td>40</td><td>50</td><td>60</td><td>70</td></tr>
</table>
Antworten
Beitrag von Helmut Meisl (119 Beiträge) am Dienstag, 1.März.2016, 15:18.
Re: Re: Re: Re: Re: Re: Re: Re: Re: Re: Re: Wie Unterprogramm mit SUB aufrufen
.... ist mir natürlich auch klar, es ist halt mein erstes Sub in Perl und ich hatte keine Lust, die Tabelle x-fach einzuarbeiten.
Danke aber für die hilfreichen Hinweise!
Antworten
Beitrag von Sander (8133 Beiträge) am Mittwoch, 2.März.2016, 00:33.
Re: Re: Re: Re: Re: Re: Re: Re: Re: Re: Re: Re: Wie Unterprogramm mit SUB aufrufen
ich verpack so etwas aber auch gern in subs um sie oben im wichtigen Teil aus dem Weg zu haben.... ;)
Antworten