Perl script that converts a log file to a Excel sheet

This script detects "|" and separates data. You can edit this code to enable for both whitespace and "|" or only whitespace.

#!/usr/bin/perl -w

use strict;

use Spreadsheet::WriteExcel;

if($#ARGV ne 1)

{

print "\n Usage: txt2xls \n Example: txt2xls \"|\" *.txt\n\n";

}

my $token;

my $file;

my $del;

my $wb;

my @files = @ARGV[1..$#ARGV];

foreach $file (@files){

open (TXTFILE, "$file") or die;

my $wb = Spreadsheet::WriteExcel->new("$file.xls");

my $excel = $wb->addworksheet();

my $row = 0;

my $col;

while () {

chomp;

if ($ARGV[0] =~ /\|/)

{

$del="\\|";

}

else

{

$del = $ARGV[0];

}

my @Fld = split(/$del/, $_);

$col = 0;

foreach $token (@Fld) {

$excel->write($row, $col, $token);

$col++;

}

$row++;

}

}