=info
    Via 523066680 @ bathome.net
    2015-03
=cut

use Win32::Clipboard;
use Term::ReadKey;
use Time::HiRes qw/sleep/;
use IO::Handle;
STDOUT->autoflush(1);

my $Fold = "D:\\Snap";
my $i = 0;
my $clip = Win32::Clipboard->new();
$clip->Empty();
mkdir $Fold unless (-e $defult);

my $timesec = &timesec();

while (1) {
    $image = $clip->GetBitmap();
    if ($image) {
        $i++;
        print "Catch one!\n";
        &savepic("$timesec $i.bmp", \$image);
        $clip->Empty();
    }
    &keyout();
    sleep 0.2;
    print ".";
}

sub savepic {
    my ($name, $rdata) = (shift, shift);
    open    BITMAP, ">$Fold\\$name";
    binmode BITMAP;
    print   BITMAP ${$rdata};
    close   BITMAP;
}

sub keyout {
    my $key;
    $key = ReadKey(-1);
    if ( ord($key) == 27 ) {
        print "Quit";
        sleep 1.0;
        exit;
    }
}

sub timesec {
    my ($sec,$min,$hour,$day,$mon,$year) = localtime();
    return 
        sprintf (
            "%02d-%02d %02d.%02d.%02d",
            $mon, $day, $hour, $min, $sec
        );
}
复制代码