摘要： excel2txt.pl#!/usr/bin/perluse strict;use Spreadsheet::ParseExcel;my $oExcel = new Spreadsheet::ParseExcel;die "Usage : \n\tperl $0 <xls> > xls.txt\n\n" unless @ARGV;my $oBook = $oExcel->Parse($ARGV[0]);my($iR, $iC, $oWkS, $oWkC);for(my $iSheet=0; $iSheet < $oBook->{Sheet 阅读全文