|
 |
栏目导栏 |
|
| |
|
|
|
|
|
资料搜索 |
|
| |
|
|
|
|
|
热门文章 |
|
| |
|
|
|
|
|
最新文章 |
|
| |
|
|
|
| |
| |
|
|
|
|
#!/usr/bin/perlnRiLinux联盟
use strict;nRiLinux联盟
use Spreadsheet::ParseExcel;nRiLinux联盟
`cd /home/wall/dragon/bak`;nRiLinux联盟
`rm -fr Dragon_orig.db`;nRiLinux联盟
my $Out_file_name="DragonInfo_orig.db";nRiLinux联盟
nRiLinux联盟
my $oExcel = new Spreadsheet::ParseExcel;nRiLinux联盟
my $oBook = $oExcel->Parse("/home/wall/dragon/bak/dragon_trial.xls");nRiLinux联盟
print $oBook->{File}."\n";nRiLinux联盟
#for( my$i=1; $i<$oBook->{SheetCount}; $i++)nRiLinux联盟
#{print $oBook->{Worksheet}[$i]->{Name}."\n";}nRiLinux联盟
#print $oBook->{Worksheet}[0]->{Cells}[15][7]->{Val};nRiLinux联盟
open(EUD,">>$Out_file_name");nRiLinux联盟
my $Sheet1=$oBook->{Worksheet}[0];nRiLinux联盟
print EUD "Pls select...\n";nRiLinux联盟
for(my $iR = 1 ;nRiLinux联盟
defined $Sheet1->{MaxRow} && $iR <= $Sheet1->{MaxRow} ;nRiLinux联盟
$iR++)nRiLinux联盟
{nRiLinux联盟
#print "\n".$iR."***********************\n";nRiLinux联盟
my $name=$oBook->{Worksheet}[0]->{Cells}[$iR][3]->{Val};nRiLinux联盟
my $ip=$oBook->{Worksheet}[0]->{Cells}[$iR][9]->{Val};nRiLinux联盟
$ip=~s/\s//ig;nRiLinux联盟
print EUD $name.":abc:".$name.":".$ip."\n";nRiLinux联盟
}nRiLinux联盟
exit;nRiLinux联盟
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
|
|
|
|
