工作中的实用 perl 脚本

#!/usr/bin/perl
use strict;
use Spreadsheet::ParseExcel;
`cd /home/wall/dragon/bak`;
`rm -fr Dragon_orig.db`;
my $Out_file_name="DragonInfo_orig.db";

my $oExcel = new Spreadsheet::ParseExcel;
my $oBook = $oExcel->Parse("/home/wall/dragon/bak/dragon_trial.xls");
print $oBook->{File}."\n";
#for( my$i=1; $i<$oBook->{SheetCount}; $i++)
#{print $oBook->{Worksheet}[$i]->{Name}."\n";}
#print $oBook->{Worksheet}[0]->{Cells}[15][7]->{Val};
open(EUD,">>$Out_file_name");
my $Sheet1=$oBook->{Worksheet}[0];
print EUD "Pls select...\n";
for(my $iR = 1 ;
                defined $Sheet1->{MaxRow} && $iR <= $Sheet1->{MaxRow} ;
                $iR++)
{
#print "\n".$iR."***********************\n";
        my $name=$oBook->{Worksheet}[0]->{Cells}[$iR][3]->{Val};
        my $ip=$oBook->{Worksheet}[0]->{Cells}[$iR][9]->{Val};
        $ip=~s/\s//ig;
        print EUD $name.":abc:".$name.":".$ip."\n";
}
exit;