Как использовать Perl для получения информации о видео?

Question

1. Проверить, был ли получен URL-адрес ввода
2. получить URL
3. посмотреть, был ли перенаправлен URL
4. получить метатеги в виде пар ключ-значение
5. получить видео теги в виде списка
6. URL следующего предложенного видео

Я пробовал Видео :: Информация, которая предоставляет общую информацию. Однако я не знаю, как получить такие вещи, как перенаправление или нет, теги и следующее видео. Любая помощь приветствуется.

спасибо

Answer 1

Посмотрите на модуль CGI.Возможно, это поможет вам начать общий процесс:

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use CGI;

my $cgi = CGI->new('metadata=abc&nextVideo=efg&foo=bar&blah=etc');
my @URLQueryKeys = $cgi->param;

foreach my $URLQueryKey (@URLQueryKeys) { 
    print Dumper $URLQueryKey;
    print Dumper $cgi->param($URLQueryKey);
}