how do i run this subroutine


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;
}

[download]

Hi Monks, I want to run the above subroutine by passing command line arguments to it. How shd i do that. Plz help

Comment on how do i run this subroutine Download Code
Re: how do i run this subroutine by Corion (Pope) on Oct 10, 2012 at 19:11 UTC
So, what have you tried? Have you had a look at perlrun already?	[reply]
Re^2: how do i run this subroutine by kurtcobain (Novice) on Oct 10, 2012 at 19:26 UTC
suppose the filename is abc.pl . I ran the script with the command ./abc.pl I need to pass the url as an argument . How do i do that? Thanks	[reply]
Re^3: how do i run this subroutine by toolic (Chancellor) on Oct 10, 2012 at 19:37 UTC
@ARGV Getopt::Long `my $url = shift @ARGV;` [download]	[reply] [d/l]
Re: how do i run this subroutine by NetWallah (Monsignor) on Oct 10, 2012 at 19:29 UTC
Command line arguments are available inside the script as the pre-defined variable @ARGV . This array can be passed to the subroutine. I hope life isn't a big joke, because I don't get it. -SNL	[reply]
Re^2: how do i run this subroutine by kurtcobain (Novice) on Oct 10, 2012 at 19:37 UTC
I am sorry but i couldnt understand how to pass @ARGV to the subroutine . I started learning perl few days back ..Could you please show me the command to do it .	[reply]
Re^3: how do i run this subroutine by runrig (Abbot) on Oct 10, 2012 at 19:54 UTC
Do you know how to pass a variable to a subroutine? @ARGV is a variable. Pass it to the subroutine. Or pass $url as toolic derived above.	[reply]
Re^4: how do i run this subroutine by kurtcobain (Novice) on Oct 10, 2012 at 21:21 UTC
Re^5: how do i run this subroutine by bulk88 (Deacon) on Oct 10, 2012 at 21:55 UTC
Re^3: how do i run this subroutine by NetWallah (Monsignor) on Oct 10, 2012 at 20:25 UTC
`Parse (@ARGV); # Parens are optional.` [download] I hope life isn't a big joke, because I don't get it. -SNL	[reply] [d/l]


Pathologically Eclectic Rubbish Lister
	PerlMonks

how do i run this subroutine

The best material for plates (tableware) is: