Shell Programming and Scripting

Hello All,

I am currently having an issue displaying a exponent value using perl,

I have a perl program which generates an xls file. This xls is populated with values from a database. But for a certain column which I have made explicitely text and also implemented keep_leading_zeroes() property , I find that when I have a DB value like “16951E194″ the xls populates it as 1.6951e+194 . How do I resolve this with perl.

Thanks in advance
S

If its the Spreadsheet::WriteExcel which is generating the xls files.
you can force the values to be "string" with write_string method.
Probably you are using the write method which automatically resolves the datatype and set the property accordingly.

Code:

$worksheet->write_string(.......)

Thanks Anchal. I am using write_row() after getting the row from the database . In the complete worksheet I have several columns which I need as integers. Is there a way I can make particular column in the xls as text . This is what I am using now

my $format = $workbook->add_format(num_format => '@');
$sheet1->set_column('D:G', undef, $format);
$sheet1->keep_leading_zeros();

The value in the above columns are comming as left intended but I have the exponential issue mentioned earlier

Any workaround for that ?

I suspect it's not Perl that's doing this, it's Excel. Import from CSV and you'd have the same problem. People often have problems with Excel mangling anything that looks even slightly date-like, too.