Perl如何控制剪帖板的内容

unix666

我用的是windows 2000　

需要用Perl把文件中的部分文本内容复制到剪贴板，使用完再删掉

不知怎么办？

谢谢！

flw

1. C:\>;ppm install Win32::Clipboard

复制代码

1. perldoc Win32::Clipboard;

复制代码

1. use Win32::Clipboard;

复制代码

flw

我这个程序和你要求的截然不同，不过它应该可以稍微展示一下 Win32::Clipboard 的用法：

1. use strict;
   
2. use Win32::Clipboard;
   
3. use Win32::File;
   
4. 
   
5. my $CLIP = Win32::Clipboard();
   
6. if ( $CLIP->;IsFiles() )
   
7. {
   
8.         my @fileList = $CLIP->;GetFiles();
   
9.         my $fullFileName;
   
10.         print "开始复制文件...\n";
    
11.         foreach $fullFileName(@fileList){
    
12.                 my ( $attr, $cmdStr );
    
13.                 Win32::File::GetAttributes( $fullFileName, $attr );
    
14.                 if ( ( $attr & 16 ) >; 0 ){
    
15.                         $fullFileName =~ /\\([^\\]+)$/;
    
16.                         my $simpleFileName = $1;
    
17.                         $cmdStr = "xcopy \"$fullFileName\" \"$simpleFileName\" /E /I"
    
18.                 }
    
19.                 else{
    
20.                         $cmdStr = "copy \"$fullFileName\" .";
    
21.                 }
    
22. 
    
23.                 print "正在复制 $fullFileName ...", "\n";
    
24.                 system( $cmdStr );
    
25.         }
    
26. }
    
27. else
    
28. {
    
29.         print "剪贴板中没有文件!\n";
    
30. }

复制代码

unix666

多谢！

我研究一下