Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Clipboard transform keys

by PhilHibbs (Hermit)
on Sep 16, 2003 at 12:46 UTC ( #291802=note: print w/ replies, xml ) Need Help??


in reply to Clipboard transform keys

Here is another clipboard transform that I use. It splits the clipboard text in half and adds the second half to the end of the first half line-by-line, so this:

 a
 b
 c
 d
 e
 f
becodes this:
 a d
 b e
 c f
I call it "clipjoin.cmd" and bind it to Ctrl-Shift-J.
@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;0 use warnings; use Win32::Clipboard; my $CLIP = Win32::Clipboard(); my $text = $CLIP->GetText; my @text = split /\r\n/,$text; my $lines = scalar @text; my $halflines = $lines/2; for (my $i=0; $i<$lines/2; ++$i) { $text[$i] .= $text[$i+$halflines]; } @text = @text[0...$halflines-1]; $text = join "\r\n", @text; $text .= "\r\n"; $CLIP->Set($text); __END__ :endofperl


Comment on Re: Clipboard transform keys
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (9)
As of 2014-10-30 23:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (211 votes), past polls