Shell Programming and Scripting

I want to convert the log files to xls. by bash script I converted it to csv, but I need to make some changes in some of them. please dont ask why xls and not csv. I need xls and this is to be a automated process.
I am new to linux, bash and NULL in Perl.
That would be nice if someone help me to convert to xls :-)
this is my code in bash scripting which converts log to csv. Now I want log to xls.

Code:

#!/bin/bash
NAME=evaluation_`date +%Y%m%d`
find /dir -name "*.log" -mtime 0 -exec cat "{}" \; >> $NAME.log
grep -e word1 -e word2 $NAME.log | grep -v word3| awk '{n=split($11,P,"/");print $1 " " $2 ";" $3 ";" $9 ";" $11 ";" P[n]}' > $NAME.csv

sed -i '1iDate;Time;From;To;User' $NAME.csv

rm $NAME.log

echo "done."

Robust CSV needs quote doubling and comma-containing-field quoting (and technically, C/R before L/F), but for "well-behaved" data you can just delimit with commas.

No ned for an intermediate file, just pipe. I like "find ...|xargs -r cat|" for more pipeline parallelism and efficiency: not one fork/exec-cat per file.

I usually mtime -1, but only use it for casual things, else I avoid mtime, as the result is not well bounded. I use "find -newer" a marker file, either 'touch' to exact date-time or sleep 1 so any files modified in that second are bounded by last_marker and new_marker.

The grep -v might be earlier to reduce the work for the rest.

We used to call the CSV file something.xls to trigger nice associations. Even URLs that end in .xls like http://haha.hoho.com/cgi-bin/makexls?a=123&z=.xls are welcomed into a spreadsheet app.

There are also off the shelf writers of xls: (code) text2xls.pl (was csv2xls.pl) You don't need to know PERL to use PERL scripts in your shell script -- an executable is an executable; all any scripting language file needs is a #! first line and execute permissions, as described in man execve(): Man Page for execve (linux Section 2) - The UNIX and Linux Forums

Now that excel has xlsx, an xml flavor, I expect more tools will come out to write that, as it is XML (text) not binary. But of course many users still have older spreadsheet apps. You might publish it as a google docs spreadsheet -- no spreadsheet app needed! I just did an election report using it: https://docs.google.com/spreadsheet/ccc?key=0AhFSGPrNgs0mdGdIM1BnRmNNUHpQc2psZ1RHQ3dvMlE#gid=0

Thanks for your reply and suggestions.
when I run the script, I get:

Code:

Spreadsheet/WriteExcel.pm did not return a true value at 12.pl line 11.
BEGIN failed--compilation aborted at 12.pl line 11.

and in dir which I run my scripts Ihave also:
- ActivePerl-5.16.1.1601-x86_64-linux-glibc-2.3.5-296175
- Spreadsheet-ParseExcel-0.2602
- Spreadsheet-WriteExcel-2.38
I dont know why still I get the Error.

Could you please help me out in n underestanding way?

Code:

WriteExcel.pm module should end with '1;'. In fact, Each and every perl modules should be end with an positive value.

Cheers,
Ranga

Makes no sense to me, if you have a late perl version.
http://search.cpan.org/~jmcnamara/Sp...m#REQUIREMENTS
http://search.cpan.org/~jmcnamara/Sp...r_and_perl_5.6

The module comes with many examples: Spreadsheet::WriteExcel::Examples - search.cpan.org

Thanks.
When I write '1:' then the problem jumps to the next one.
lets say I have a perl script like this:

Code:

#!/usr/bin/perl -w

use strict;
use Spreadsheet::WriteExcel '1;'
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";
    }
}

How that can be solved?

I got it running with perl 5.6.1 on hp-ux 11.00 with just one more line for my module loc and a simple semicolon:

Code:

#!/usr/bin/perl -w
use strict;
use lib '/myhome/perl/Spreadsheet-WriteExcel-2.38/lib';
use Spreadsheet::WriteExcel ;
 .
 .
 .
 .

(I forget how to use the @INC thing.)