Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: Clipboard transform keys

by PhilHibbs (Hermit)
on Sep 16, 2003 at 12:46 UTC ( [id://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

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others meditating upon the Monastery: (3)
As of 2024-03-29 07:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found