Perl reads Excel

This is because there are hundreds of thousands of lines at most of Excel tools to process big data at work. Try using Perl to see how it works.

PPM install ole: storage_lite # if this is not installed, the next two cannot install ppm install Spreadsheet: parseexcelppm install Spreadsheet: writeexcel

Check whether the installation is successful

Perldoc Spreadsheet: parseexcel # If the document is printed, the installation is successful.

To ensure correct Encoding

ppm install Unicode::Map

Use strict; use spreadsheet: parseexcel: fmtunicode; # character encoding my $ parser = Spreadsheet: parseexcel-> New (); my $ formatter = Spreadsheet: parseexcel: fmtunicode-> New (unicode_map => "cp936"); # Set the character encoding # my $ workbook = $ parser-> parse('book.xls '); my $ workbook = $ parser-> parse ('e: \ webdev \ project \ Perl \ a.xls ', $ formatter ); # parse my $ log = "demo. log "; if (! Defined $ workbook) {die $ parser-> error (),". \ n ";}open (file,"> $ log "); for my $ Worksheet ($ workbook-> worksheets () {My ($ row_min, $ row_max) = $ worksheet-> row_range (); my ($ col_min, $ col_max) = $ worksheet-> col_range (); for my $ row ($ row_min .. $ row_max) {for my $ Col ($ col_min .. $ col_max) {my $ cell = $ worksheet-> get_cell ($ row, $ col); next unless $ cell; print $ cell-> value (),""; print (File $ cell-> value (). "\ t");} print "\ n"; print (File "\ n") ;}} close (File );

View code

Record the results and try the results at the company tomorrow