Empresas costumam usar o Excel para armazenar tabelas de dados . Muitas vezes , essas empresas vão encontrar um uso para que os dados que requer convertê-lo em um formato diferente para outro software para usar. Mas os arquivos do Excel não são projetados para ser lido por outros programas. Os dados que eles contêm precisa ser convertido para um formato comum , como Comma Separated Value (CSV) . Para as pessoas com um monte de arquivos do Excel para converter , o processo usual é complicado. Assim, a capacidade do Perl para lidar com tarefas de processamento de dados de forma rápida e facilmente vem a calhar neste caso. Coisas que você precisa
Perl ou ActiveState Perl CPAN
se você tem Perl
PPM se você tiver ActiveState Perl
Show Mais instruções
Crie sua arquivo CSV
< br > 1

Instale o módulo " Spreadsheet :: ParseExcel " Perl em seu sistema. Este é o módulo Perl padrão para a leitura de dados de arquivos do Excel. O processo de instalação depende do tipo de sistema

Se você tem ActiveState Perl (ou seja , Perl para Windows. ) : .

Abra uma janela do Prompt de Comando. Vá para o " bin" subpasta da pasta onde o programa ActiveState Perl está localizado . Se você não sabe onde ele está , use o recurso de pesquisa do Windows para encontrar " activeState " e fazer uma nota do " caminho do diretório " para a pasta ActiveState Perl. Então vá para a janela do prompt de comando e digite " DIR ", seguido por esse caminho de diretório e pressione Return. Em seguida, digite " DIR bin " e pressione Return.

Type " ppm " , em seguida, pressione Return. Algum texto irá aparecer e então você vai ser capaz de digitar os comandos novamente. Digite " instalar Spreadsheet :: ParseExcel " e pressione Return. Um pouco mais de texto vai aparecer e , em seguida, a instalação será concluída

Se você tem padrão Perl : .

Abra um prompt de comando ou janela de terminal. No Mac OS X , o programa é chamado de Terminal . Digite o seguinte :

perl- MCPAN -e instalar Spreadsheet :: ParseExcel

Pressione Return . Um monte de texto vai aparecer e , em seguida, a instalação estará completa.
2

Faça o seu arquivo do Excel acessível para o seu script Perl . Faça uma cópia do arquivo do Excel com o nome " xls_test.xls " para este tutorial e movê-lo para a pasta onde o script Perl está localizado .
3

Carregue o seu arquivo Excel em sua script Perl com este código:

uso Spreadsheet :: ParseExcel ;

my $ xlsparser = Spreadsheet :: ParseExcel -> new ();

my $ xlsbook = $ parser -> parse ( ' xsl_test.xls ');

my $ xls = $ xls -> planilha (0);

Agora temos um objeto ( "$ xls " ) que contém os dados da primeira planilha do nosso arquivo Excel. Se você deseja obter dados de uma planilha diferente , substitua o zero ( "0") na quarta linha com o número de sua planilha menos um. Por exemplo , o primeiro número da folha é igual a zero ( " 0 " ) , número da terceira folha é dois ( " 2 " ) e assim por diante . Se o seu arquivo do Excel tem apenas uma planilha, use o código como está.
4

Descubra quais colunas e linhas tem sua planilha . Utilize este código:

my ($ row_first , row_last $ ) = $ xls -> row_range ();

my ($ col_first , col_last $ ) = $ xls -> col_range ( );
5

Crie uma variável para armazenar os dados CSV. Utilize este código:

my $ csv ='';
6

Crie os dados CSV. Use este código para fazê-lo:

for my $ linha ( $ row_first .. $ row_last ) {# Etapa através de cada linha

for my $ col ( $ col_first .. $ col_last ) { # Etapa através de cada coluna

meu celular = $ $ xls -> get_cell ( $ row , $ col) ; # Obter a célula atual

próximo a menos que $ célula;

$ csv = $ célula -> não formatado (); # Obter dados brutos da célula - sem cores de fronteira ou qualquer coisa assim

if ($ col == $ col_last ) {

$ csv = " \\ n"; # ​​Faça uma nova linha no final da linha

} else {

$ csv = " " ; . "Adicionar uma vírgula entre cada artigo

}

}

}
7

Salve os dados em $ csv para um arquivo usando funções de escrita de arquivos do Perl . Certifique-se o nome do arquivo termina em " . csv " para maior clareza.