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]

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
[reply]

In Section Seekers of Perl Wisdom