von shell-script nach perl - #51421 (Allgemeines zu Perl)

blackbit

2005-01-29 21:33

User since
2005-01-29
7 Artikel
BenutzerIn

ich hab mich jetzt einmal dazu entschlossen mein shell-script 1:1 in perl zu übersetzen und dann später u.u. verbesserungen vorzunehmen. ich hab schon damit angefangen, wobei angehäntes ergebnis raus gekommen ist. das script ist so lauffähig, allerdings hätte ich mir als ausgabe erwartet:
[html]
<html><title>IP Tabelle</title><body>
<table>
</table>
</body></html>[/html]

statt dessen ist aber nur das gekommen:
[html]<html><title></title><body>[/html]

offensitchlich habe ich einen fehler gemacht in der übergabe der variable "IP Tabelle" an die subroutine htmlhead, das ist mir schon klar.
was ich nicht verstehe ist, daß offenbar nur die sub htmlhead ausgeführt wird, sonst nix, und dass ich dazu keine fehlermeldung bekomme.
ich bitte um aufklärung eines blutiges perl-neulings

Code (perl): (dl )

sub main
{
        htmlhead ("IP Tabelle");
        tablehead;
        file2table ("ip xxx");
        tablefoot;
        htmlfoot;
}

sub htmlhead
{
        print "<html><title>$1</title><body>\n";
}

sub htmlfoot
{
        print "</body></html>";
}

sub file2table
{
}

sub tablehead
{
        print "<table>";
}

sub tablefoot
{
        print "</table>";
}

main;

edit renee: [html]- und [perl]-Tags spendiert...\n\n