Screenshot

[Anonymous Monk]

ok i got bored and wanted to learn perl, so heres what i got. simply made a lil script for the command "import" that asks for a filename, location to put it, and extenstion.

#!/usr/bin/perl
print "What Shouls We Name It? ";
my $name = <STDIN>;
chomp($name);
print "Wheres It Going? ";
my $path = <STDIN>;
chomp($path);
print "File Type (jpg, gif, png, bmp)? ";
my $ext = <STDIN>;
chomp($ext);
exec "import -window root $path/$name.$ext\n";

[aukjan]

Just as a side note... Windows users might try Win32::Screenshot. (never used it myself though)

[fauria]

Using an X server under a *NIX system, you can grab the screenshot directly from perl by using:

$image->Read(filename=>"X:", display=>$DISPLAY, geometry=>$geometry); #not tested

[Anonymous Monk]

i guess, im not a windows user so i didnt bother. ill keep that in mind tho as im still learning perl

[merlyn]

You didn't list this as X11-specific. Keep in mind, "screens" can mean almost anything these days.