파일 형식 변환

Question

유닉스에서 탭으로 구분 된 텍스트 파일 (.txt)로 내 엑셀 파일 (.xls)을 변환해야합니다. 누구든지이 일을 도울 수 있습니까?

예 : 서버에있는 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 

그럼 당신은 그것을 실행할 수 있습니다

스프레드 시트 모듈을 설치하는 방법을 모른다면

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