perl – 如何向WWW :: Mechanize添加进度条？

原文

我有以下代码： 
$mech->get($someurl,":content_file" => "$i.flv");

所以我得到一个url的内容并将其保存为flv文件.我想每隔一秒打印一下,剩下多少下载.有没有办法在WWW :: Mechanize中实现这一目标？

解决方法

WWW :: Mechanize说get方法是LWP :: UserAgent get的“良好行为”重载.查看LWP :: UserAgent的文档,您可以提供content_cb密钥,该密钥随下载文件的每个块一起调用： 
$mech->get( $someurl,":content_cb" => \&callback );
sub callback
{ 
  my( $data,$response,$proto ) = @_;
  # save $data to $i.flv
  # print download notification
 }

perl – 如何向WWW :: Mechanize添加进度条？的更多相关文章

  1. Jekyll search组件

    默认联想8个，如果需要更多的话，请检索bootstrap3-typeahead.min.js中的items:8,将8替换成自己需要的数值。

  2. angular – 要求选中复选框

    我不想显式检查复选框的值，而是希望使用验证器，以便我可以简单地检查form.valid。在下面的两个验证案例中，复选框都是.TSWorkingPlunker。如果需要更改，请告诉我。

  3. javascript – Firebase child_added仅用于新项目

    谢谢,解决方法我使用以下方法解决了问题.limitToLast获取最后一个邀请对象,然后监听任何新对象,将快照对象传递给cb回调.child_changed监听任何子更新的邀请,将快照传递给cb

  4. 单元测试 – Angular承诺不在茉莉花中解决

    我有以下茉莉花测试：我认为$rootScope.$apply应该解决所有未完成的承诺,但不知怎的,它不会在这个测试中发生.如何在这样的测试中触发promise解析？我认为$rootScope.$apply()在你的情况下很快被调用.这应该工作：更新你可以注入mock$timeoutservice并使用$timeout.flush()显式解决这个问题.

  5. jQuery Deferred vs jqXHR

    解决方法对于$.ajax()和family.success只是Deferred的.done的同义词，同样.error是.fail的同义词。.complete主要是新的jQuery1.6.always的同义词，您可以使用$.then获得相同的效果，这将导致cb被调用，无论AJAX调用是否成功。我认为参数传递给.complete，.always和$.then变体之间的“失败”回调有很小的区别。我个人更喜欢使用这些命名函数的Deferred版本，因为那样你不需要担心你的延迟对象是否是jqXHR。只有jqXHRs

  6. c – 添加新项目时,哪种数据结构会丢弃最旧的项目？

    我一直在努力记住这一点,这让我发疯了.基本上,它就像一个小阵列,比方说大小为5,当你添加项目时,它开始填满.当它已满并添加新项目时,将删除最旧的项目.您可以通过变量[0],变量[1]等访问值,其中变量[0]是最旧的值,变量4是最新的值.关于这是什么的任何想法？它是标准的C类型,还是我只是把它看作某个自定义类？

  7. 在Perl中,一个子程序如何获得指向自身的代码？

    为了学习的目的，我正在建设的想法事件驱动程序在Perl和注意到，它可能是很好的如果一个被注册为事件处理程序的子例程可以在失败时，只是安排另一个调用自己以后的时间。到目前为止，我有想出这样的东西：有一种方法，代码里面的sub可以访问coderefsub所以我可以不使用额外的变量？我想调度这样的初始调用。我首先想到使用caller[3]，但这只是给了我一个函数名，，而不是代码引用其具有附接到其上的垫。解决方法我认为Sub::Current会解决你的问题。

  8. javascript – 跨浏览器preventDefault()没有jQuery

    我写了这个绑定方法,并在我的preventDefault()方法中有一个问题在IE中工作.回调行从不执行.有人可以提供帮助吗？

  9. perl – 如何向WWW :: Mechanize添加进度条？

    解决方法WWW::Mechanize说get方法是LWP::UserAgentget的“良好行为”重载.查看LWP::UserAgent的文档,您可以提供content_cb密钥,该密钥随下载文件的每个块一起调用：

  10. java – 了解Android应用程序中的内存泄漏

    解决方法你是绝对正确的.但是,有一个微妙的观点：文章来自2009年.那时,setCallback的实现是different：Android=4.0.1：Grepcode没有显示中间版本的源代码,这是我能够快速找到的唯一差异.所以,再次,你在这个特定的情况下是完全正确的.但是,当你对这些项目保持静态引用时,真正考虑实际发生的事情仍然非常重要.有很多情况下你肯定会泄露上下文.

随机推荐

  1. 数组 – Perl中有什么神奇的数组？

    在Perldocumentationforreverse中,我发现：“请注意,将数组反转到自身(如@a=reverse@a)将尽可能保留不存在的元素;即对于非魔法数组或具有EXISTS和DELETE方法的绑定数组.什么属性区分神奇和非魔法阵列？解决方法一个神奇的阵列是一个执行它的操作不仅仅是改变内容.只有内置的魔术阵列是@ISA,而且这是非常不明显的.正如句子所暗示的,魔术阵列主要是一个绑定的阵列

  2. perl – 使用“isa”方法的最佳方式？

    什么是“最好的”使用方式“isa()”可靠？解决方法Scalar::Util实现明确更好.它避免了eval{}的开销,它总是导致设置一个附加变量.Scalar::Util实现更容易阅读.如果eval也失败了,我相信发生的是你在树之前向后走到eval之前的状态–这是如何实现复位状态.这带来了额外的故障开销.基准根本不是一个对象对象传递isa检查对象出现故障现象检查测试代码：我使用这是为i486-linux-gnu-thread-multi建立的perl,v5.10.1(*),以及Scalar::Util,1

  3. 在CORE :: GLOBAL中哪些Perl内置函数不能被覆盖？

    解决方法toke.c中任何值为负的值都可以被覆盖;所有其他人可能不会.你可以看源码here.例如,我们来看看第10,396行的waitpid：由于waitpid为负数,因此可能会被覆盖.grep怎么样？这是积极的,所以不能被覆盖.这意味着以下关键字不能被覆盖：chop,defined,delete,do,dump,each,else,elsif,eval,exists,for,foreach,format,glob,goto,grep,if,keys,last,local,m,map,my,next,no

  4. 如何在Perl中打印由换行符分隔的列表元素？

    什么是最简单的打印所有列表的元素以Perl中的换行符分隔的元素？解决方法在Perl5.10中：其他方式：或：或者怎么样？

  5. 使用Perl如何获取文件大小(以兆字节为单位)？

    我想以磁盘的形式获取磁盘上的文件大小.使用-s运算符给出了以字节为单位的大小,但是我将假设,然后将其除以魔术数字是一个坏主意：我应该使用只读变量来定义1024,还是有一种编程方式来获取一千字节的字节数？

  6. perl – 如何测试/分类CPAN模块的utf8正确性

    例如：File::Slurp,如果你将读取该文件您将根据命令行开关获得不同的结果,并且perl-CSDA将无法正常工作.伤心.(是的,我知道比Encode::decode(“utf8”,read_file($file,binmode=>’：raw’));将帮助,但是SAD.我的问题：>在这里任何首选方式,如何测试/分类什么CPAN模块是utf8安全/准备/正确？>这里是像Perl::Criticforutf8这样的东西–什么将检查模块源可能的utf8不正确？总结以上是DEVMAX为你收集整理的perl–如

  7. 如何删除Perl字符串中的空格？

    如果我声明一个值为’3’的变量$myString.是否有任何功能来删除返回值的空格.有点像SomeFun然后返回’3′.输出：你可以注意到’vid’=>‘0’,上面的代码从theanswer.我正在研究它.总结以上是DEVMAX为你收集整理的如何删除Perl字符串中的空格？如果觉得DEVMAX网站内容还不错，欢迎将DEVMAX网站推荐给好友。

  8. 如何在mod_perl2下运行Devel :: Cover？

    Unfortunately,Devel::Coverdoesnotyetworkwiththreads.它也不适用于prefork.在startup.pl中使用,Devel::Cover问题perl5.8.9,Apache2.2.13.我的操作系统是FreeBSD,如果重要.同样的问题是reportedforwin32.更新：PerlTrace全部输出解决方法邪恶之源似乎是Apache::DBI.

  9. 如何使用Perl中的C类？

    我有一套用C写的课.从Perl脚本中调用它们的最佳方法是什么？

  10. perl – 在Emacs中以双模式更好的缩进

    我正在使用Emacs来修改Perl和Verilog交织的代码.我正在使用two-mode-mode在两者之间切换,这样可以预期.问题是perl代码与//一行一行地表示;如下图所示：而双模式则认识到它是Perl,它是逐行的,所以缩进等在线上无意义.我想做的是使Perl代码像往常一样格式化,但忽略//;字符.有什么想法吗？我刚刚开始偷看模式文件,它们是可以理解的复杂的,所以任何提示都不会感激！

返回
顶部