Блог

Главная - Вопросы по программированию - Link Harvester — Как я могу получить идентификатор видео YouTube с помощью Perl?

Link Harvester — Как я могу получить идентификатор видео YouTube с помощью Perl?

#perl

#perl

Вопрос:

Хорошо, вот что я пытаюсь сделать

 use lwp;
my $ua ="mozzila";
my $search = ua->get("http://www.youtube.com/results?search_query=funny videoamp;aq=f")->content;

while ($search =~m,# ok i do not know what i must put here,sgi)
{
print "$1/n";
}

Вот и все. Может кто-нибудь может мне помочь..

Комментарии:

1. LWP должно быть в верхнем регистре. Mozilla пишется с заглавной буквы через один z и два l . Новая строка пишется с обратной косой чертой, таким образом: n . — Программирование учит обращать внимание на детали.

Ответ №1:

 while ($search =~ m/href="/watch?v=([a-zA-Z0-9_-] )"/) {
    print "$1n";
}

Комментарии:

1. Вы забыли тире и подчеркивания.

Ответ №2:

 use LWP::Simple;
print $_."n" for (get("http://www.youtube.com/results?search_query=funny videoamp;aq=f") =~ m/href="/watch?v=([a-zA-Z0-9_-] )"/g);