LinuxでCSVをXLSファイルに変換

次のPerlスクリプトはCSVファイルをXLSファイルに変換できます。

問題は、クライアントのLinuxシステムに多くのPerlモジュールをインストールする必要があることです。

このPerlスクリプトを実行するには、Linuxシステムがゲストシステム（モジュールのインストールを許可しない）なので、実際には実行できません。

したがって、このPerlスクリプトの他の選択肢を見つける必要があります。

最初の顧客はLinux Redhatシステムバージョン5.Xを持っています。

ちょっと探してみたいバッシュ/ksh/sh/awkPerlスクリプトと同じことを行うスクリプト

だから私はCSVをXLSファイルに変換する別の選択肢を探したいと思います。

このスクリプトをどのように見つけることができますか？または、LinuxシステムでCSVをXLSに変換するための他の提案

#!/usr/bin/perl -w

###############################################################################
#
# Example of how to use the WriteExcel module
#
# Simple program to convert a CSV comma-separated value file to an Excel file.
# This is more or less an non-op since Excel can read CSV files.
# The program uses Text::CSV_XS to parse the CSV.
#
# Usage: csv2xls.pl file.csv newfile.xls
#
#
# NOTE: This is only a simple conversion utility for illustrative purposes.
# For converting a CSV or Tab separated or any other type of delimited
# text file to Excel I recommend the more rigorous csv2xls program that is
# part of H.Merijn Brand's Text::CSV_XS module distro.
#
# See the examples/csv2xls link here:
#     L<http://search.cpan.org/~hmbrand/Text-CSV_XS/MANIFEST>
#
# reverse('©'), March 2001, John McNamara, [email protected]
#

use strict;
use Spreadsheet::WriteExcel;
use Text::CSV_XS;

# Check for valid number of arguments
if ( ( $#ARGV < 1 ) || ( $#ARGV > 2 ) ) {
    die("Usage: csv2xls csvfile.txt newfile.xls\n");
}

# Open the Comma Separated Variable file
open( CSVFILE, $ARGV[0] ) or die "$ARGV[0]: $!";

# Create a new Excel workbook
my $workbook  = Spreadsheet::WriteExcel->new( $ARGV[1] );
my $worksheet = $workbook->add_worksheet();

# Create a new CSV parsing object
my $csv = Text::CSV_XS->new;

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

while (<CSVFILE>) {
    if ( $csv->parse($_) ) {
        my @Fld = $csv->fields;

        my $col = 0;
        foreach my $token (@Fld) {
            $worksheet->write( $row, $col, $token );
            $col++;
        }
        $row++;
    } else {
        my $err = $csv->error_input;
        print "Text::CSV_XS parse() failed on argument: ", $err, "\n";
    }
}