Shell Programming and Scripting

SELECT  
COLUMN1, CHAR(','),
COLUMN2, CHAR(','),
COLUMN3, CHAR(','),
COLUMN4
FROM   TABLE

SELECT 
   'COLUMN1,' 
   'COLUMN2,' 
   'COLUMN3,' 
   'COLUMN4' 
FROM 
   SYSIBM.SYSDUMMY1
UNION
SELECT  
   COLUMN1, CHAR(','),
   COLUMN2, CHAR(','),
   COLUMN3, CHAR(','),
   COLUMN4
FROM
   TABLE

#!/usr/bin/env perl

use strict;
use warnings;

use Text::CSV;
use Data::Table::Excel qw(tables2xls);

my $csv = Text::CSV->new({binary => 1, eol => "\n"}) or die "$!\n";

my @table_names;
for my $file (@ARGV) {
    my $csv_file = $file;
    $csv_file =~ s/\.txt/.csv/;
    push @table_names, $csv_file;

    open my $FH_TXT, "<", $file or die "$!\n";
    open my $FH_CSV, ">", $csv_file or die "$!\n";

    while (my $line=<$FH_TXT>) {
    my @cols = split /\s+/, $line;
    $csv->print($FH_CSV, \@cols);
    }

    close $FH_TXT or die "$!\n";
    close $FH_CSV or die "$!\n";
}

my $xls_file = "output.xls";

my @tables;
for my $name (@table_names) {
    my $table = Data::Table::fromFile($name);
    push @tables, $table;
}

my @portraits = map { 1 } @tables;
my @column_headers = map { 0 } @tables;
tables2xls($xls_file, \@tables, undef, undef, \@portraits, \@column_headers);

$ convert.pl record01.txt record02.txt ...