리눅스 환경 (SSR 8020 에릭슨)에서 CSV 파일을 XLS 파일로 변환

Question

나는 CPU_status.csv 파일을 갖고 있는데 리눅스에서 "./Test.sh"스크립트를 사용하여 CPU_test.xls 형식으로 변환하려고합니다. VI (Ericsson SSR8020)하지만 ftp 때마다 항상 한 열을 Excel에서 얻고 있습니다. 의견 및 피드백을 보내 주시면 감사하겠습니다. 고마워.

#!/bin/bash 
 
echo "Check CPU" 
 
tail -n +2 CPU_status.csv | head -1 | awk 'BEGIN{FS="|"}{print $1,$3,$16,$33,$50,$67,$81,$98}'| column -t;tail -n 50 CPU_status.csv | awk 'BEGIN{FS="|"}{print $1,$3,$16,$33,$50,$67,$81,$98}' | column -t 
 
echo "Hit Enter to Continue..." 
 
sleep 1 
 
read continue 
 

 
echo "./Test.sh>CPU_test.xls" 
 
./Test.sh>CPU_test.xls 
 
echo "Hit Enter to Continue..." 
 
sleep 1 
 
read continue

Answer 1

당신은 세미콜론으로 구분 된 파일을 생성하고 당신이 필요로하는 방식으로 데이터를 읽고 성공 열로 확산 능가 할 수

. 또한 column -t 명령을 제거하십시오.

은 다음과 같이 말아야 :

tail -n +2 CPU_status.csv | head -1 | awk 'BEGIN{FS="|"; OFS=";"}{print $1,$3,$16,$33,$50,$67,$81,$98}'; tail -n 50 CPU_status.csv | awk 'BEGIN{FS="|"; OFS=";"}{print $1,$3,$16,$33,$50,$67,$81,$98}'

Answer 2

펄은 읽기 및 쓰기 엑셀 .XLS 및 XLSX을 위해 편리한 CPAN 모듈을 가지고있다.

#!/home/utils/perl-5.8.8/bin/perl 
use Spreadsheet::WriteExcel; 
use warnings; 
use strict; 
# open input file (fields delimited by ',') 
my $inputfile = shift; 
my $outputfile = shift; 
open my $IN, '<', $inputfile, or die "Could not open $inputfile"; 
# Create a new Excel workbook 
my $workbook = Spreadsheet::WriteExcel->new($outputfile); 
# Add a worksheet and a row 
my $worksheet = $workbook->add_worksheet(); 
my $xlscol = my $xlsrow = 0; 
for my $line (<$IN>) { 
    print "\$line: $line"; 
    my @fields = split /,/, $line; 
    print "\@fields: @fields\n"; 
    for my $csvcol (1, 3, 16, 33, 50, 67, 81, 98) { 
     $xlscol++; 
     print "$xlsrow\t$xlscol\t$csvcol\t$fields[$csvcol]\n"; 
     $worksheet->write($xlsrow, $xlscol, $fields[$csvcol]); 
    } 
    $xlsrow++; 
} 
# Usage: writeXlsExample.pl CPU_status.csv my.xls 
# File has been written to my.xls