закачиваются файлы.
файл со списком имен и урлов формируется другим скриптом.
я его немного переделал и теперь он формирует данные в виде:user1 2013-01-014234 http://ya.ru http://google.com
user2 2013-01-013311 http://ya2.ru http://google2.com
добавился еще один урл
Неуверен насколько правильно, но я добавил закачку второго урла в код, выдает ошибки но все работает:
#!/usr/bin/perl
use strict;
use warnings;
my ($usr, $dir, $url, $url2, $out, $out2);
my $r_dir = "~/Downloads";
my $file = "~/Downloads/txt";
open FH, $file or die "can't open $file: $!";
for (;;) {
exit if (stat(FH))[3] == 0;
while (<FH>) {
chomp;
my @str = split(" ", $_);
$usr = $str[0];
$dir = $str[1];
$url = $str[2];
$url2 = $str[3];
$out = $url;
$out =~ s|^.*/(.*)$|$1|;
$out2 = $url2;
$out2 =~ s|^.*/(.*)$|$1|;
mkdir "$r_dir/$dir";
`touch "$r_dir/$dir/$usr"`;
my $wget = "wget -q -t 1 -O \"$r_dir/$dir/$out\" $url";
my $wget1 = "wget -q -t 1 -O \"$r_dir/$dir/$out2\" $url2";
unlink "$r_dir/$dir/$out" and `touch "$r_dir/$dir/warning"` if system $wget;
unlink "$r_dir/$dir/$out2" and `touch "$r_dir/$dir/warning-big"` if system $wget1;
}
sleep "1";
seek (FH, 0, 1);
exit;
}
ошибки вида:
Use of uninitialized value $out in substitution (s///) at ./work2.pl line 31, <FH> line 3.
Use of uninitialized value $out2 in substitution (s///) at ./work2.pl line 33, <FH> line 3.
Use of uninitialized value $dir in concatenation (.) or string at ./work2.pl line 36, <FH> line 3.
Use of uninitialized value $dir in concatenation (.) or string at ./work2.pl line 38, <FH> line 3.
Use of uninitialized value $usr in concatenation (.) or string at ./work2.pl line 38, <FH> line 3.
Use of uninitialized value $dir in concatenation (.) or string at ./work2.pl line 40, <FH> line 3.
Use of uninitialized value $out in concatenation (.) or string at ./work2.pl line 40, <FH> line 3.
Use of uninitialized value $url in concatenation (.) or string at ./work2.pl line 40, <FH> line 3.
Use of uninitialized value $dir in concatenation (.) or string at ./work2.pl line 41, <FH> line 3.
Use of uninitialized value $out2 in concatenation (.) or string at ./work2.pl line 41, <FH> line 3.
Use of uninitialized value $url2 in concatenation (.) or string at ./work2.pl line 41, <FH> line 3.
wget: missing URL
Usage: wget [OPTION]... [URL]...
Просто интересно - насколько это критично?
Вариант для распечатки
