Linux環境でCSVファイルをXLSファイルに変換する（SSR 8020 Ericsson）

Question

私はCPU_status.csvファイルを持っていますが、Linuxでは "./Test.sh"というスクリプトを使用してCPU_test.xls形式に変換しようとしていますVI（Ericsson SSR8020）だが、私がftpするときには、常に1つのカラムを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

セミコロン区切りのファイルを作成し、Excelができ、必要な方法でデータを読み込み、列後続にそれらを広げます。さらに、column -tコマンドを削除します。

それは次のようになりshoul：

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

Perlは読書やExcelの.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