linux - 在 perl 中截图

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