A couple of advices :
So we could have:
#!/usr/bin/perl use strict; use warnings; use LWP::Simple; my $counter=1; my $file="C:/Documents and Settings/Dad/Desktop/url checker.txt"; open FILE, "<$file" or die "Can't open the list of urls! \n"; while(<FILE>){ my $source=get($_); open LOG, ">C:/Documents and Settings/Dad/Desktop/Websites/Website + Source $counter.txt" or die "Can't open website sources.txt: $!\n"; print LOG $source; close LOG; $counter++; } close FILE; close LOG;
In reply to Re: Source Grabber
by wazoox
in thread Source Grabber
by Andrew_Levenson
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |