kurtcobain has asked for the wisdom of the Perl Monks concerning the following question:
sub Parse{ my $self = shift; my $html_code = shift; my $te = HTML::TableExtract->new( headers => [qw(Severity Advi +sory Synopsis Date)] ); my @args = (); $te->parse_file($html_code); foreach my $ts($te->tables) { foreach my $row ($ts->rows) { push(@args,("\'".join('\',\'',@$row)."\'\n")); } } return @args; }
Hi Monks, I want to run the above subroutine by passing command line arguments to it. How shd i do that. Plz help
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: how do i run this subroutine
by Corion (Patriarch) on Oct 10, 2012 at 19:11 UTC | |
by kurtcobain (Novice) on Oct 10, 2012 at 19:26 UTC | |
by toolic (Bishop) on Oct 10, 2012 at 19:37 UTC | |
Re: how do i run this subroutine
by NetWallah (Canon) on Oct 10, 2012 at 19:29 UTC | |
by kurtcobain (Novice) on Oct 10, 2012 at 19:37 UTC | |
by runrig (Abbot) on Oct 10, 2012 at 19:54 UTC | |
by kurtcobain (Novice) on Oct 10, 2012 at 21:21 UTC | |
by bulk88 (Priest) on Oct 10, 2012 at 21:55 UTC | |
by NetWallah (Canon) on Oct 10, 2012 at 20:25 UTC |
Back to
Seekers of Perl Wisdom