如何使用perl获取有关视频的信息？

Question

1. 验证输入网址是否已获取
2. 获取网址
3. 查看网址是否已重定向
4. 将元标记作为键值对
5. 将视频标记作为列表
6. 下一个建议视频的网址

我尝试了Video :: Info，它提供了一般信息。但是我不知道如何获取它是否被重定向，标签和下一个视频。任何帮助表示赞赏。

感谢

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);
}