Win32::Clipboard

[Joey]

Ok, esses dias eu tava criando uma ferramenta simples, e do nada eu tive a idéia de gravar o resultado no clipboard. Pois é, dei uma pesquisada no nosso bom e velho google, e encontrei o módulo "Win32::Clipboard", que é muito bom, porém só funciona na plataforma Windows. E como estou sem nada pra fazer resolvi escrever um pequeno artigo a respeito desse módulo. Espero que ajude alguém e por favor desculpem-me pelos futuros erros ;D

Iniciando

O primeiro passo é criar uma instância do módulo e armazená-la em uma variável.

Código Selecionar Expandir

$clip = Win32::Clipboard();

Mostrando

Agora, vamos a um exemplo de como mostrar o conteúdo que está gravado no clipboard.

Código Selecionar Expandir

print "Clipboard : ", $clip->Get();

Gravando

Agora um simples exemplo de como gravar palavras no clipboard.

Código Selecionar Expandir

$clip->Set("Joey - www.darkers.com.br");

Limpando

E por ultimo, como limpar o clipboard.

Código Selecionar Expandir

$clip->Empty;

Observação

Lembrando que:

Código Selecionar Expandir

$clip->Empty;

é totalmente diferente de:

Código Selecionar Expandir

$clip->empty;

Exemplo de código

Exemplo de código
clipboard.pl

Código Selecionar Expandir

#!/usr/bin/perl
# Joey - www.darkers.com.br
use Win32::Clipboard;
$clip = Win32::Clipboard();
$mul = 3*3;
$val = "O valor da multiplicacao e: $mul";

print "$val"; $clip->Set("$val");


Bom, por enquanto é isso pessoal, espero que tenham gostado desse pequeno artigo, qualquer erro, critica ou sugestões podem postar no tópico!

see ya;

[guidjos]

Muito bom :)

Isso é bom porque no Windows é chato ficar copiando coisas da janela do prompt.