Question

女士们，先生们，

我有一个问题，这真的让我疯狂。我想从Chrmoe Cookies文件中读取cookie以使用perl :: mechanize添加到请求中。

这是代码

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;
use Data::Dumper qw(Dumper);
use HTTP::Cookies::Chrome;
my $domain = 'http://url.goes.here';
my $mech = WWW::Mechanize->new(cookie_jar => HTTP::Cookies::Chrome->new(file => 'C:/Users/juergen/AppData/Local/Google/Chrome/User Data/Default/Cookies', autosave => 1, ignore_discard => 1 ));  
$mech->agent( 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.132 Safari/537.36' );

#$mech->cookie_jar->scan(sub { print Dumper \@_ });
print ($mech->cookie_jar->as_string);
#my $res = $mech->get($domain);
#open(my $out, ">",  "output_page.html") or die "Can't open     output_page.html: $!"; #make lexical variables using my
#print $out $res->content;

该文件存在。但是没有读取cookie。如果我用扫描取消注释行...没有显示任何内容我也没有看到他们与wireshark

另一个问题是，在取消注释该行以获取该URL后，我会收到错误 DBD :: SQLite :: st执行失败：C：/Perl64/lib/HTTP/Cookies/Chrome.pm第217行数据类型不匹配

任何提示？

由于

perl :: mechanize从文件

0 个答案: