Copying text to clipboard in UNIX

[kp]

Hi all,

I want to copy a text to clipboard in UNIX.

Is there a way to do this in Perl?
Or should I use some other language?

Thanks,
Krishna

 

[Mumia W.]

Hi all,

I want to copy a text to clipboard in UNIX.

Is there a way to do this in Perl?
Or should I use some other language?

Thanks,
Krishna

Although Tk originated with TCL, it's available for Perl, and it can
manipulate the selection for you:

#!/usr/bin/perl
use strict;
use warnings;
use Tk;

# Let's be funny and name the window $winxp.
my $winxp = MainWindow->new();
$winxp->Label (-text => 'Hello World')->pack();
$winxp->Button (-text => 'Quit' ,
-command => [ $winxp => 'destroy' ]
)->pack; $winxp->SelectionClear ();
$winxp->SelectionHandle (\&myhandler);
$winxp->SelectionOwn ();
MainLoop;

sub myhandler {
my ($offset, $maxChars) = @_;
return "This is text from Perl.";
}

# Credits to the authors of the perl-tk manpage.


Read the docs;
$ man perl-tk
$ man Tk::Selection

 

[kp]

Thanks Mumia,

My requirement is somewhat different. I want the functionality of this
in a script or command. :: select a text with a mouse - the text will
be copied to clipboard - and we can insert using Shift+Ins

I have a perl script (put_path.pl). This will keep the current path in
clipboard. (I will use this later in other terminals).

put_path.pl.

$path = `pwd`;
TODO: I need to paste this path in clipboard.

Thanks in advance.

 

[Dave]

Thanks Mumia,

My requirement is somewhat different. I want the functionality of this
in a script or command. :: select a text with a mouse - the text will
be copied to clipboard - and we can insert using Shift+Ins

I have a perl script (put_path.pl). This will keep the current path in
clipboard. (I will use this later in other terminals).

put_path.pl.

$path = `pwd`;
TODO: I need to paste this path in clipboard.

Thanks in advance.

Does the CPAN module Clipboard go anywhere to meeting your needs?

 

[kp]

Dave,

Can you repost the link about CPAN? It is not working.
I need a simple function that will copy a text to standard clipboard in
UNIX.

Thanks,
Krishna

 

[Dave]

Dave,

Can you repost the link about CPAN? It is not working.
I need a simple function that will copy a text to standard clipboard in
UNIX.

Thanks,
Krishna

This module might help - or give some ideas:
http://search.cpan.org/~king/Clipboard-0.09/lib/Clipboard.pm

 

[Dr.Ruud]

kp schreef:

I want to copy a text to clipboard in UNIX.

Is there a way to do this in Perl?
Or should I use some other language?

Do you need to copy text just from within the Perl-program in the
foreground? As Dave mentioned, check out CPAN module Clipboard.

Or do you need a background process, possibly written in Perl, that
would do it for any other program running in the active terminal window?
http://en.wikipedia.org/wiki/Daemon_(computer_software)