You can tie a filehandle:

#!perl -w

use Win32::Clipboard;

my $CLIP = Win32::Clipboard();

print "This gets printed to STDOUT\n";
tie *STDOUT, 'clippy', \$CLIP;

print "This will end up into the clipboard.";

untie *STDOUT;


package clippy;

use Tie::Handle;
use vars qw(@ISA);
@ISA = qw(Tie::Handle);

sub TIEHANDLE {
    my $class = shift;
    my $clip = shift;
    return bless({clip => $clip}, $class);
}

sub PRINT {
    my $self = shift;
    ${$self->{clip}}->Set(@_);
}
[download]

Here you go, this script reads itself into the clipboard then reads that back.....

use Win32::Clipboard;

my $cb = Win32::Clipboard();
$cb->Empty();

open F, $0 or die $!;
$cb->Set( do{ local $/; <F> } );
close F;

$cb->WaitForChange();

printf "Clipboard contains:\n\n%s\n", $cb->Get();
[download]

If you'll be cutting and pasting stuff to and from the clipboard as well as reading and writing it, then you'll want to convert \n to \r\n on the way to the clipboard, and vice versa on the way back. Otherwise you'll see \r in what you read, and when you paste other programs won't know what to do with the plain \n.

This conversion is automatically done for you when you read from/write to textfiles, but you have to do it yourself with Win32::Clipboard.

I appreciate the point but the code above runs as expected vis CRLF. The thing with Win32 clipboard is that it kinda makes conversions unnecessary. You just don't paste from Win32 to Gnome. And if you remain on Win32 then the line endings simply remain as they should be.

cheers

tachyon

Shorter, working code is

use Win32::Clipboard;
$CLIP = Win32::Clipboard();
$CLIP->Set("some text to copy into the clipboard");
[download]

use Win32::Clipboard;
Win32::Clipboard("some different text to copy into the clipboard");
[download]