Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re^3: how do i run this subroutine

by runrig (Abbot)
on Oct 10, 2012 at 19:54 UTC ( #998305=note: print w/ replies, xml ) Need Help??


in reply to Re^2: how do i run this subroutine
in thread how do i run this subroutine

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.


Comment on Re^3: how do i run this subroutine
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);

    I passed the url as an argument . I am looking to write the output to a text file .But it aint working. Please help

      sub Parse{ my $url = $ARGV[0]; ############################## my $a = $ARGV[0]; Parse($a);
      Wrong, use @_.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://998305]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (6)
As of 2014-12-21 00:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (99 votes), past polls