Заменить это
my @URL = ("www.ya.ru/test6","www.youtube.com/watch?v=1234567");
my %URL_ARR = ();
foreach (@URL) {
$URL_ARR{$_} = 1;
}
на это
open(URLFILE,"< path_to_file_with_urls");
while (<URLFILE>) {
$URL_ARR{$_} = 1;
}
Если урлы в файле начинаются с http:// то заменить
if ($URL_ARR{$host . $query}) {
на
if ($URL_ARR{"http://" . $host . $query}) {
Извеняюсь за глупость, но у меня при замене 2е ошибки выдает
Global symbol "%URL_ARR" requires explicit package name at ./block.py line 39.
Global symbol "%URL_ARR" requires explicit package name at ./block.py line 86.
где есть $URL_ARR{$_} = 1; (в цикле wile и if ($URL_ARR{"http://" . $host . $query}) ).
Что сделал:
поменял
#my @URL = ("http://yandex.ru/test6","www.youtube.com/watch?v=1234567");
#my %URL_ARR = ();
#foreach (@URL) {
# $URL_ARR{$_} = 1;
#}
open(URL,"< /media/500Gb/tmp/URLFILE");
while (my $row = <URL>) {
chomp $row;
$URL_ARR{$_} = 1;
print "$row\n";
}
и
#if ($URL_ARR{$host . $query}) {
if ($URL_ARR{"http://" . $host . $query}) {
URLFILE вида :
http://yandex.ru/test6
www.youtube.com/watch?v=1234567
Подскажите пожалуйста, что я сделал не так?