Question

我想将Cookie文件传递给来自浏览器扩展程序的youtube-dl。扩展程序以原始格式发送Cookie，例如VISITOR_INFO1_LIVE=_SebbjYciU0; YSC=tSqadPjjfd8; PREF=f4=4000000 但youtube-dl采用netscape jar格式的cookie（据我所知）。如果我将原始文本cookie放在一个文件中并将其传递给--cookies=file.txt参数youtube-dl会引发异常。

我无法将原始Cookie转换为jar Cookie并保存到磁盘中的文件中。我搜索了一个解决方案，但没有找到任何可接受的解决方案。

Answer 1

我有非常相似的问题将“ curl” cookie转换为wget一个。 Netscape CookieJar格式很简单，请参见*

所以我花了几分钟编写一个快速的perl脚本并生成一个cookiejar

这是代码（可下载here）

#!/usr/bin/perl

# usage
# perl cookiejar.pl {{url}} '{{cookie-string}}'


use YAML::Syck qw(Dump);
my $expires = $^T + 86400;
my $path = '/';

my $url = shift;
my $cookies = shift;

printf "--- # %s at %u\n",__FILE__,$^T;
my $domain;
my $p = index($url,'://')+3;
my $l = index($url,'/',$p);
$domain = substr($url,$p,$l-$p);
my $dots = () = $domain =~ /\./g;
printf "dots: %s\n",$dots;
if ($dots > 1) {
   $domain = substr($domain,index($domain,'.'));
} else {
   $domain = '.'.$domain;
}
printf "domain: %s\n",$domain;
printf "url: %s\n",$url;

local *F; open F,'>','cookiejar.txt' or warn $!;
print F <<EOT;
# Netscape HTTP Cookie File
# http://curl.haxx.se/rfc/cookie_spec.html
# This is a generated file!  Do not edit.
# domain: $domain
# url: $url

EOT
my @cookies = split'; ',$cookies;
printf "--- %s...\n",Dump(\@cookies);
foreach my $cookie (@cookies) {
   my ($key,$value) = split('=',$cookie);
   if (! $seen{$key}++) {
      # domain access path sec expire cookie value
      printf F "%s\t%s\t%s\t%s\t%s\t%s\t%s\n",$domain,'TRUE',$path,'FALSE',$expires,$key,$value;
   }
 }
close F;
print "info: cookiejar.txt created\n";
printf "cmd: wget --load-cookie-file cookiejar.txt --referer=%s -p %s\n",$domain,$url;
printf "cmd: youtube-dl --cookie cookiejar.txt -referer %s %s\n",$domain,$url;

exit $?;

1; # $Source: /my/perl/scripts/cookiejar.pl $

您按如下方式运行它：

perl cookiejar.pl https://example.com/'cookie1 = value1; cookie2 = value2'

注意：

您可能需要使用以下方式安装YAML :: Syck

cpan install YAML::Syck

或仅注释掉Dump（）调用和使用YAML :: Syck行。

如何将原始cookie转换为Netscape jar cookie并保存到文件？

1 个答案:

注意：