Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (10)
As of 2014-10-21 14:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (103 votes), past polls