发布时间:2012-12-13 14:36:53
#!perluse warnings;use strict;use Win32::Process;my @abc=`tasklist`;print @abc;while (1) {if (grep /QQ.exe/,@abc){ print 'QQ.exe';} else{ &qqprocess;}sleep 10;}sub qqprocess{ my $result = Win32::Process::Create( my $Pr......【阅读全文】
发布时间:2012-12-13 10:24:06
#!perluse warnings;use strict;use Net::FTP;my $ftpserver='192.168.188.2';my $ftpuser='tony';my $ftppassword='tony123456';my $ftp=Net::FTP->new("$ftpserver",Debug=>1)or die "$!";$ftp->login("$ftpuser","$ftppassword") or die "$!";###cwd前进到目录#$ftp->cwd('/abc') or die "$!";###ls显示文件my @file=......【阅读全文】