Perl script to parse Excel spreadsheets to text file(s)

Create a Perl script.

The script should look at all subdirs of current dir and create a list

of excel (xlsx) file. For each file it parse excel first sheet only.

NOTE: All Spreadsheets can be in different encoding, the resulting files should be in utf-8

Script should do something like this (pseudocode):

print filename

print sheet Name

join cells of each row by '#!#' delimiter

check if first line of the current sheet is like

'First Name#!#Last Name#!#Email#!#Company#!#Job Title#!#Address#!#Phone#!#Country#!#ParentCategory#!#Category#!#SubCategory1#!#SubCategory2#!#SubCategory3'

if not, produce warning and continue

parse each line into ($FirstName, $LastName, $Email, $Company, $JobTitle, $Address, $Phone, $Country, $ParentCategory, $Category, $SubCategory1, $SubCategory2, $SubCategory3)

skip if no email

substitute comma to period in email (common typo)

trim email

check email for validity

put each line into hash with lower case email as a keys

print sorted hash for import to DB

Perl

ID do Projeto: #7411544

Sobre o projeto