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

Question

1. 验证是否获得输入网址
2. 获得url
3. 看到，如果网址重定向
4. 得到的meta标签的键值对
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); 
}