Question

我正在从linux机器运行perl脚本，远程登录到路由器以收集数据。我的客户要求很少包括特定配置的屏幕截图。我尝试使用

Imager::Screenshot

但每次打印黑屏。有没有更好的方法来捕获路由器输出的屏幕截图，而是捕获linux屏幕截图也适合我。

提前致谢

Answer 1

请参考此编码：

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, @_ );
}

感谢：Taking Screenshot in perl

在perl中截取屏幕截图

1 个答案: