yes it should support but here it is not, I had to kill the script every time, it was running for hours and returning nothing.

G'day raja567,

Welcome to the monastery.

"I had to kill the script every time, it was running for hours and returning nothing."

You're reading your input from your output file:

   open(INPUT,$outFile) or die "Can't open file";
[download]

You haven't shown enough of your code but I suspect you have something like this (before the code you have shown):

    my $workbook = Spreadsheet::WriteExcel->new($outFile);
    my $worksheet = $workbook->add_worksheet();
[download]

Your code keeps reading what you've just written. You're effectively in an infinite loop.

I'd also recommend you look at open for a better way to open your files (using 3-argument form with a lexical filehandle) and write the die "message" (including the actual filename and $!).

You also appear to have an error with this:

$worksheet->write(0,$colCount,$el,$gFmtBold)   ;
[download]

That's writing everything to row 0! I suspect this is what you want:

        $worksheet->write($rowCount, $colCount, $el, $gFmtBold);
[download]

Not an error, but on every iteration of the foreach loop you're setting the width for every column that you've already set:

                          $worksheet->set_column(0,$colCount,40);
[download]

That's possibly a lot of additional processing you don't need. Given the amount of data you're dealing with, that could well be noticeable timewise. Would this not be better:

        $worksheet->set_column($colCount, $colCount, 40);
[download]

The layout of your code is far from optimal. If you employ a logical scheme of indentation, the logic of your code will be far more apparent. This will help you and anyone else who has to subsequently read it. The "perlstyle - Perl style guide" provides tips on how to do this; you can automate the process with perltidy.

[Disclaimer: I'm not a user of Spreadsheet::WriteExcel. The above information was gleaned by reading the documentation.]

-- Ken

I guess it looks like buffer issue, do you have $|=1; at the begin of the script? if not add and try again.

---

All is well