Unable to put array as a comment on excel sheet cell .

somsub

Hi,

I m facing a problem to add an array as a comment to a MS excel cell using Spreadsheet :: WriteExcel .

I m using the below code

Expand|Select|Wrap|Line Numbers

 use Spreadsheet::WriteExcel;

$workbook = Spreadsheet::WriteExcel->new('perl.xls');

$worksheet = $workbook->add_worksheet();

print "\n \n Enter a path value to take its contns \n";

    $pth=<STDIN>;

    chomp $pth;

    $pth =~ tr#\\#/#;

    open(MF, "$pth" ) || die "$!";

    @contents = <MF>;

    close(MF);

        $worksheet->write_comment(10, 2, @contents);

    $workbook->close();

above script reads the contents of the specified text file and takes it in to an array @contents and writes it to the secified cell (ie is 10 th row 2nd column ) using write_comment method .

But executing this i got the following output .

Uneven number of additional arguments at s4.pl line 11.

also the last line $workbook->close(); is not executed after that .

Could anyone help me how to add an array or a filehandle in a MS excel cell comment .

nithinpes

The write_comment method accepts the comment string as a single argument. When you pass an array, each element of the array will be considered as an argument and this violates syntax of the method.
You can read entire chunk of the file as a single string and pass it as comment.

Expand|Select|Wrap|Line Numbers

 
use Spreadsheet::WriteExcel; 

$workbook = Spreadsheet::WriteExcel->new('perl.xls'); 

$worksheet = $workbook->add_worksheet(); 

print "\n \n Enter a path value to take its contns \n"; 

    $pth=<STDIN>; 

    chomp $pth; 

    $pth =~ tr#\\#/#; 

    $/= "" ;   # undefine input record separator to read entire file

    open(MF, "$pth" ) || die "$!"; 

    $contents = <MF>; # entire file is read into variable

    close(MF); 

        $worksheet->write_comment(10, 2, $contents); 

    $workbook->close();

somsub

Yaa it worked peoperly ....!! thnx a lot.. for ur help

Unable to put array as a comment on excel sheet cell .

re: Unable to put array as a comment on excel sheet cell .

re: Unable to put array as a comment on excel sheet cell .

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about