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

blackbit

2005-01-29 22:08

User since
2005-01-29
7 Artikel
BenutzerIn

so, das problemchen hab ich jetzt auch in den griff bekommen.
momentaner code schaut so aus:

Code: (dl )

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

sub htmlhead
{
        my $var = shift;
        print "<html><title>$var</title><body>\n";
}

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

sub file2table
{
}

sub tablehead
{
        print "<table>\n";
}

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

main;

jetzt gehts an die for schleife...
dazu brauch ich als allererstes die anzahl der zeilen vom .raw file.
hier stosse ich sehr deutlich an meine grenzen, nachdem ich gar keine vorkenntnisse hab...
aber ich ja schon froh, dass ich überhaupt so weit gekommen bin.
ist jemand so lieb und hilft mir?\n\n