Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Clipboard transform key: scraper_help

by PhilHibbs (Hermit)
on Nov 13, 2003 at 12:29 UTC ( #306774=note: print w/replies, xml ) Need Help??

in reply to Clipboard transform keys

This one isn't bound to a keypress, it runs in the background and watches for clipboard changes. It collates screen captures from a mainframe terminal, and stitches them side-by-side. I normally do a de-dupe blank columns afterwards. You have to give it a marker (I use __END__) to know when to finish and write the text back to the clipboard.
@rem = '--*-Perl-*-- @echo off perl -x -S "%~dpnx0" %1 %2 %3 %4 %5 %6 %7 %8 %9 goto endofperl @rem '; #!perl #line 8 use strict; use warnings; use Win32::Clipboard; my $CLIP = Win32::Clipboard(); my $not_finished = 1; my @data = ''; $CLIP->WaitForChange(); while ( $not_finished ) { $CLIP->WaitForChange(); print "changed\n"; $_ = $CLIP->GetText; s|\x0d\x0a|\x0a|g; # remove MS line-ends if ( scalar @data == 0 ) { @data = split "\n", $_; } else { my $line = 0; for ( split "\n", $_ ) { $data[$line++] .= $_; } } if ( m|__END__| ) { $not_finished = 0; # Finished after this block! } } $CLIP->Set(join("\n",@data)); __END__ :endofperl

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://306774]
[choroba]: Progress! Nowadays, you can write a Perl script to generate such an anagram!
[GotToBTru]: i like to order my chemicals a-la-carte ambrus ;)
[thepkd]: Hi, in trying to create an Array of Hash of Array of Hash. You read it right. Is it possible to dereference it without using temps?
[GotToBTru]: what are temps?

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (11)
As of 2016-12-06 13:12 GMT
Find Nodes?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:

    Results (104 votes). Check out past polls.