Re: line breaks on Win32::Clipboard


Syntactic Confectionery Delight
	PerlMonks

Re: line breaks on Win32::Clipboard

by chester (Hermit)

on Sep 15, 2005 at 13:58 UTC ( [id://492219]=note: print w/replies, xml )

Need Help??

in reply to line breaks on Win32::Clipboard

Try this:

use warnings;
use strict;
use Win32::Clipboard;

my $SomeVar=<<TOHERE;
line
some other line
some distinct yet similar line
the daughter of line 0 and line 1
the line she loves even while being with line 2
TOHERE

$SomeVar =~ s/\n/\r\n/g;

Win32::Clipboard::Set($SomeVar);
[download]

Comment on Re: line breaks on Win32::Clipboard Download Code

Replies are listed 'Best First'.
Re^2: line breaks on Win32::Clipboard by radiantmatrix (Parson) on Sep 15, 2005 at 20:16 UTC
It works, but it may not be portable between the various Win32 versions of Perl. "\n" can mean different things to differing perls. Best to use the literals (chars 0x0D and 0xOA are CR and LF, respectively). Also, you'll want not to replace line endings that are already correct, because you'd end up with a "\r\r\n" (bad). `$SomeVar =~ s{(?<!\x0D)\x0A}{\x0D\x0A}g;` [download] Updates: 2005-09.Sep-15 : Clarified term 'portable' <-radiant.matrix-> Larry Wall is Yoda: there is no `try{}` (ok, except in Perl6; way to ruin a joke, Larry! ;P) The Code that can be seen is not the true Code "In any sufficiently large group of people, most are idiots" - Kaa's Law	[reply] [d/l]
Re^2: line breaks on Win32::Clipboard by fbinard (Beadle) on Sep 15, 2005 at 14:14 UTC
thanks, that works Franck Binard	[reply]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://492219]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others having an uproarious good time at the Monastery: (4)

As of 2024-04-18 02:37 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found