Re^2: how do i run this subroutine

Replies are listed 'Best First'.
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
`#!/usr/bin/perl -w use strict; use warnings; use HTML::TableExtract; sub Parse{ my $url = $ARGV[0]; my $te = HTML::TableExtract->new( headers => [qw(Severity Advisory Sy +nopsis Date)] ); my @args = (); $te->parse_file($url); foreach my $ts($te->tables) { foreach my $row ($ts->rows) { push(@args,("\'".join('\',\'',@$row)."\'\n")); } } return @args; } my $a = $ARGV[0]; Parse($a); open (MYFILE, '>>data.txt'); print MYFILE Parse($a); close (MYFILE);` [download] I passed the url as an argument . I am looking to write the output to a text file .But it aint working. Please help	[reply] [d/l]
Re^5: how do i run this subroutine by bulk88 (Priest) on Oct 10, 2012 at 21:55 UTC
`sub Parse{ my $url = $ARGV[0]; ############################## my $a = $ARGV[0]; Parse($a);` [download] Wrong, use @_.	[reply] [d/l]
Re^3: how do i run this subroutine by NetWallah (Canon) 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]