Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Clipboard transform key: Comma-separated list maker

by PhilHibbs (Hermit)
on Aug 19, 2003 at 18:20 UTC ( #284975=note: print w/replies, xml ) Need Help??


in reply to Clipboard transform keys

Here is another clipboard transform that I use. It transforms a \n-separated list into a comma-separated list with " around each item and ( and ) around the list, wrapped to 72 columns (for use in a 3270 emulator). It doesn't use text:wrap, because a string might contain a space, and be wrapped inappropriately. I call it "cqlist.cmd" and bind it to Ctrl-Shift-'.
@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 ($output, $lastline) = ("", "("); foreach( split m[\x0d\x0a?|\x0a\x0d?], $CLIP->GetText ) { (my $quoted = $_) =~ s/'/''/g; $quoted = qq['$quoted', ]; if( $lastline ne "" and length($lastline) + length($quoted) > 72 ) +{ chop $lastline; # remove trailing space $output .= $lastline . "\n"; $lastline = ""; } $lastline .= $quoted; } $lastline =~ s|, \z|)|; # convert last ", " to a ")" $output .= $lastline; $output =~ s|\n|\x0d\x0a|g; # convert perlish \n to windows CRLF. print $output; $CLIP->Set($output); __END__ :endofperl

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://284975]
help
Chatterbox?
[shmem]: LanX: now I have to find a succinct transformation FOOL => MONK
[LanX]: yeah but Marto already proposed a new "Lex Sun-D" ...
[karlgoethebier]: the word really exists: http://www. urbandictionary. com/define.php? term=fool
[shmem]: ...possibly involving RTFM
[karlgoethebier]: big surprise!
[Eily]: LanX I try to avoid answering, but I did feel that this one post was going into much detail to prove a false claim (that SHA-1 is secure, I was just wrong about how insecure it is)
[LanX]: ironically...
[LanX]: yeah whatever ... I'm in the favorable condition to already autohiding him ... how can I judge the poor FOOLs who still see his contributions xD
[Eily]: he's been pretty saavy about threads that were implictly about him in the past. I think he might have deliberatly avoiding mentioning it for some reason (he got tired?)
[Eily]: he did mention one of his propositions: basically make it possible to ignore downvotes, by separating them more from the upvotes

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (8)
As of 2017-07-24 17:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I came, I saw, I ...
























    Results (356 votes). Check out past polls.