如何编写Perl脚本来自动截取屏幕截图?

时间:2010-09-13 09:24:30

标签: perl automation screenshot

  • 我想要一个独立于平台的实用程序来截取屏幕截图(not just within the browser)。

  • 该实用程序可以在固定的时间间隔后截取屏幕截图,并且可以由用户轻松配置

    • 连续拍摄之间的时间,

    • 存储镜头的格式

    • 直到脚本运行时(时间,事件)等

  • 由于我需要平台独立性,我认为Perl是一个不错的选择。

  

a。在我开始之前,我想知道是否已经存在类似的事情,所以我可以从那里开始?

  

b。我应该使用哪个Perl模块?

1 个答案:

答案 0 :(得分:2)

看看两者的来源,Imager::Search只不过是Imager::Screenshot的包装。

这是构造函数:

sub new {
    my $class  = shift;
    my @params = ();
    @params = @{shift()} if _ARRAY0($_[0]);
    my $image = Imager::Screenshot::screenshot( @params );
    unless ( _INSTANCE($image, 'Imager') ) {
        Carp::croak('Failed to capture screenshot');
    }

    # Hand off to the parent class
    return $class->SUPER::new( image => $image, @_ );
}

鉴于Imager::Search并没有真正扩展Imager::Screenshot,我会说你正在研究两个基本相同的模块。