perl 剪贴板操作

以下代码设置剪贴板内容为 hello world，然后读取剪贴板内容

 

use Win32::Clipboard;
$clip = Win32::Clipboard->new();
$clip->Set("hello world");
$val = $clip->Get();
print $val; 

 

如果你用鼠标键盘操作选中一个文件 ctrl-v 那么调用 Get将得到该文件的文件名，如果你选中了

多个文件或文件夹 然后复制-剪切，那么get得到的内容，我没试过

perl还有多个操作剪贴板的函数和模块 ，高级用法请参考cpan资料