Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

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

Comment on Clipboard transform key: scraper_help
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://306774]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (9)
As of 2014-10-01 18:38 GMT
Find Nodes?
    Voting Booth?

    What is your favourite meta-syntactic variable name?

    Results (32 votes), past polls