Преобразование формата файла

Question

Мне нужно преобразовать файл excel (.xls) в текстовый файл с разделителями-разделителями (.txt) в unix. Может ли кто-нибудь помочь мне в этом.

Для примера. если я загружу File.xls на сервере, он должен быть преобразован в файл File.txt

Спасибо за ваши ответы.

Answer 1

Это должно делать то, что вы хотите:

#!/usr/bin/perl -w 

    use strict; 
    use Spreadsheet::ParseExcel; 

    my $parser = Spreadsheet::ParseExcel->new(); 
    my $workbook = $parser->parse($ARGV[0]); 

    if (!defined $workbook) { 
     die $parser->error(), ".\n"; 
    } 

    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) { 
     my $line=""; 
     my $comma=""; 
     for my $col ($col_min .. $col_max) { 

      my $cell = $worksheet->get_cell($row, $col); 
      next unless $cell; 

      $line .= $comma; 

      $line .= $cell->unformatted(); 
      # Could be $cell->unformatted() or $cell->value() 
      $comma=","; 
     } 
     print $line,"\n"; 
     } 
    } 

Сохраните файл xls2csv затем перейдите к терминалу и сделать его исполняемым:

chmod +x xls2csv 

Затем вы можете запустить его с:

./xls2csv file.xls > file.csv 

Если вы не знаете, как установить модуль электронной таблицы, вы можете сделать это:

sudo perl -MCPAN -e shell 
cpan> install Spreadsheet::ParseExcel 
cpan> q