■

ずーっとさぼっていたsosreporttoxls(旧姓:sysreporttoxls)を２点修正した。
1.リストしたファイルから読み込む形式に変更した。（sosreportって出力が多すぎるので、取捨選択できるようにと。ちゃんとディレクトリたどれるように小細工した）
2.リストされた対象ファイルごとにシートを作成するように修正した。※これで、１システム、１ブック、複数シートですぐに提出できちゃうのだ。ウッヒョオーイ！
後は、sosreportの任意のファイル（出力したいファイル＝前回表にしたやつかな）で試験してみるだけ。（今のところは、dfとproc/cpuinfoだけ確認して問題なし）ファイルの正規表現部分は、もうちょうっと練っても良さそうだし、罫線を引っぱって見栄えも良くした方がよいかもしれない。それはSpreadsheet::WriteExcelのドキュメントにやりかた書いてあるし、例も多数あるからまた思いたったら、やろう。んで、かなり昔に作成したマッチングプログラムをダイナミックに書き換えて基礎となる設定ファイルと比較して問題なければこのシステムは基盤解放じゃ！！とか言えればいいかも。でも、こいつが役立つ時ってこない雰囲気なんだよな〜　orz...

#!/usr/bin/perl -w
use strict;
use Spreadsheet::WriteExcel;
use Jcode;
use Unicode::String qw(utf8 utf16);

open (SOS, 'sosreportlist.txt') or die "df: $!";

my $workbook = Spreadsheet::WriteExcel->new('sysreport.xls');
my $uni_font = $workbook->add_format(font => 'Arial Unicode MS');

foreach my $list(readline SOS) {

chomp($list);

# We must transfer from / to _, because it can't use the add_worksheet.
$list =~ s/\//_/g;

my $temp = $workbook->add_worksheet(utf8( Jcode->new($list)->utf8 )->utf16,1);

# return the PATH NAME here!
$list =~ s/_/\//g;

open (TEMP, $list) or die "open error: $!";

# Row and column are zero indexed
my $row = 0;

while () {
chomp;
# Split on single tab
#my @Fld = split('\t', $_);
# I must test the various files!
my @Fld = split(',', $_);

my $col = 0;

foreach my $token (@Fld) {
$temp->write_unicode($row, $col, utf8(Jcode->new($token)->utf8 )->utf16);
$col++;
}
$row++;
}

close(TEMP);
}