Gundumfx has asked for the wisdom of the Perl Monks concerning the following question:
#!/usr/bin/perl -w use strict; my $localvar = $ARGV[0]; open(FILE, "$localvar") or die "Failed to openfile: $!"; while(<FILE>){ if($_ =~ m/^http/) { my $wgetarg = '-q -c --load-cookies /home/Locke/.cookies/rapidshar +e'; my @wget = `wget $wgetarg $_`; foreach(@wget) { print 'Done with this file\n'; } } }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Rapidshare and LWP
by dHarry (Abbot) on Jan 05, 2009 at 11:26 UTC | |
by XooR (Beadle) on Jan 05, 2009 at 12:13 UTC | |
by Gundumfx (Initiate) on Jan 08, 2009 at 09:47 UTC | |
by Gundumfx (Initiate) on Jan 08, 2009 at 09:45 UTC |