html - 使用 perl WWW::Mechanize::Firefox 将 Html 文件转换为 png

Question

我正在尝试在 perl 中使用 WWW::Mechanize::Firefox 将 HTML 文件转换为 png 文件

我用过的代码

        use WWW::Mechanize::Firefox;
        use Path::Class qw/file/;

        my $mech = WWW::Mechanize::Firefox->new(
          bufsize => 10_000_000, # PNGs might become huge
        );
        my $count=0;
        while($count<90){
        $count++;
        chomp($count);
        my $k="file:///C:/Users/ACER/Desktop/file/$count.html";
        print"$k\n";
        $mech->get($k);
        my $name="$count.png";
        my $fh = file( $name )->open( '> :raw' );
        print $fh $mech->content_as_png();
        $k='';
        }

html文件命名为1.html、2.html如下。所以我已将 $counter 分配为地址的变量。但是，它在 while 循环的第二次迭代中终止。我对这里使用的 get() 函数有一些疑问。请给我一些指导。谢谢你。