excel파일로 저장하기

use Spreadsheet::WriteExcel;

   # Create a new Excel workbook
   my $workbook = Spreadsheet::WriteExcel->new("perl.xls");

   # Add a worksheet
   $worksheet = $workbook->add_worksheet();

   #  Add and define a format
   $format = $workbook->add_format(); # Add a format
   $format->set_bold();
   $format->set_color('red');
   $format->set_align('center');

   # Write a formatted and unformatted string, row and column notation.
   $col = $row = 0;
   $worksheet->write($row, $col, "Hi Excel!", $format);
   $worksheet->write(1,    $col, "Hi Excel!");

   # Write a number and a formula using A1 notation
   $worksheet->write('A3', 1.2345);
   $worksheet->write('A4', '=SIN(PI()/4)');