#!/usr/bin/perl
# Leo Gutierrez Ramirez.
# leorocko13@hotmail.com
use strict;
use warnings;
use diagnostics;
use Win32::Clipboard;
if(!@ARGV)
{
print $0;
print "\nModo de uso : \n$0 [-v] [-c] [-s Cadenas]\ n";
print q(
-v : Ver el contenido del portapapeles.
-c : Limpiar el contenido del portapapeles.
-s : Poner el texto especificado en el portapapeles
);
} elsif(lc($ARGV[0]) eq '-v')
{
my $CLIP = Win32::Clipboard();
print $CLIP->Get();
} elsif(lc($ARGV[0]) eq '-c')
{
my $CLIP = Win32::Clipboard();
$CLIP->Empty();
} elsif(lc($ARGV[0]) eq '-s')
{
die "Falto la cadena a poner en el portapapeles" unless($ARGV[1]);
my $CLIP = Win32::Clipboard();
$CLIP->Set($ARGV[1]);
}
exit();

C:\>code.pl -v
aklsjdlkjalsdkj alksjdal  s laksdflaksdjlaksd
C:\>

C:\>code.pl -c

C:\>

C:\>code.pl -s "Este texto irá al portapapeles"

C:\>code.pl -v
Este texto irß al portapapeles
C:\>