Перейти к содержимому
Калькуляторы

shaggy_

Новичок
  • Публикации

    3
  • Зарегистрирован

  • Посещение

О shaggy_

  • Звание
    Абитуриент
  1. Это первое что я пробовал. Скрипт запускается, но эффекта нет. Как я писал выше, читает только последнию строку. Проверьте у себя неа ни одну из страниц не перенаправляет. И в консоле не видно чтобы что-то писал.
  2. Это первое что я пробовал. Скрипт запускается, но эффекта нет.
  3. Заменить это 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 Подскажите пожалуйста, что я сделал не так?