use Win32::IEAutomation ; use Win32::IEAutomation::Table; use Win32::IEAutomation::Element;  
open:允许程序访问文件 close:终止文件访问 print:文件写入字符串 write:向文件写入格式化信息 printf:格式化字符串并输出到文件 1: #!/usr/local/bin/perl 2:
$string = join(" ","this","is","a","string"); @list = ("words","and"); @string =&n
代码: sub TC { my $c = 3; my $d = 4; return $c,$d;&
多位数组 my %HAO; for $i(0..9){ for $j(0..9) { $HAO[$i][$j] = $i.$j;
use Win32::GuiTest qw(:ALL); use Win32::IEAutomation; use Win32::IEAutomation::WinClicker;
#加载库 use Win32::IEAutomation; use Win32::IEAutomation::WinClicker; use Win32::IEAutomation
在字符串内用index my $stuff = 'Howdy world!'; my $where = index($stuff,'wor'); print $where; # &n
Copyright © 2005-2024 51CTO.COM 版权所有 京ICP证060544号