Taking Screenshot in perl

Question

i am running a perl script from a linux machine to log onto a router remotely to collect data. few of my client requirements include screenshots of specific configs. i tried using

Imager::Screenshot

But each time it is printing a black screen. Is there a better way to capture screenshots of the router output, rather capturing the screenshot of the linux screen would work well for me as well.

Thanks in advance

perhaps this is helpful - getting WWW::Mechanize::Firefox to display webpage image: http://stackoverflow.com/questions/2312852/how-can-i-take-screenshots-of-webpages-with-perl — bytepusher, Nov 18 '14 at 00:14
i'd guess that your router has no X (or something equivalent) running, hence you aren't able to shoot at a screen that isn't there. — Patrick J. S., Nov 18 '14 at 02:59
am connected via cli. If X is not running, is there a method of getting a screenshot of the screen? — kishore nath, Nov 19 '14 at 03:27
could anyone point to a soultion or suggest a method to fulfill the task. — kishore nath, Nov 20 '14 at 04:16

score 0 · Answer 1 · edited May 23 '17 at 12:05

0

Please refer this coding:

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

give thanks to: Taking Screenshot in perl

edited May 23 '17 at 12:05

Community

1
1

answered Nov 18 '14 at 04:45

ssr1012

2,573
1
18
30

this sub is giving a black screen as well. – kishore nath Nov 20 '14 at 04:13

Taking Screenshot in perl

1 Answers1