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

Question

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

url我尝试了 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);
}