#!c:/www/perl/bin/perl
use strict;
use Spreadsheet::WriteExcel;
use CGI qw/:standard/;
my $ffff = param(\'ffff\');
# Create a new workbook and add a worksheet
my $workbook = Spreadsheet::WriteExcel->new("c:\\\\www\\\\Apache\\\\htdocs\\\\test.xls");
my $worksheet = $workbook->add_worksheet(\'date\');
# Set the column width for columns 1, 2, 3 and 4
$worksheet->set_column(0, 0, 6);
$worksheet->set_column(2, 2, 30);
$worksheet->set_column(3, 3, 10);
$worksheet->set_column(4, 14, 6);
$worksheet->set_column(15, 15, 10);
# Create a format for the column headings
my $header_1 = $workbook->add_format();
$header_1->set_bold();
$header_1->set_size(
;
$header_1->set_align(\'left\');
$header_1->set_color(\'black\');
$header_1->set_align(\'center\');
$header_1->set_align(\'vcenter\');
$header_1->set_rotation(2);
my $header_2 = $workbook->add_format();
$header_2->set_bold();
$header_2->set_size(
;
$header_2->set_align(\'left\');
$header_2->set_color(\'black\');
$header_2->set_align(\'center\');
$header_2->set_align(\'vcenter\');
my $header = $workbook->add_format();
$header->set_bold();
$header->set_size(
;
$header->set_align(\'left\');
$header->set_color(\'black\');
$header->set_align(\'vcenter\');
$header->set_text_justlast(1);
my $column_1 = $workbook->add_format();
$column_1->set_size(
;
$column_1->set_align(\'left\');
$column_1->set_color(\'black\');
$worksheet->merge_range(\'H1:H5\', \'ENK 11000\', $header_1);
$worksheet->merge_range(\'I1:I5\', \'ENK 11000\', $header_1);
$worksheet->merge_range(\'J1:J5\', \'ENK 11000\', $header_1);
$worksheet->merge_range(\'K1:K5\', \'ENK 11000\', $header_1);
$worksheet->merge_range(\'L1:L5\', \'ENK 11000\', $header_1);
$worksheet->merge_range(\'M1:M5\', \'ENK 11000\', $header_1);
$worksheet->merge_range(\'N1:N5\', \'ENK 11000\', $header_1);
$worksheet->merge_range(\'O1:O5\', \'ENK 11000\', $header_1);
$worksheet->write(1, 15, \'AdamSaat\', $header_2);
$worksheet->write(2, 15, \'Gecis\', $header_2);
$worksheet->write(3, 15, \'Onayi\', $header_2);
$worksheet->merge_range(\'A1:B1\', \'Bolge/Tip\', $column_1);
$worksheet->merge_range(\'C1:G1\', \'$f_4\', $header);
$worksheet->merge_range(\'A2:B2\', \'Grup\', $column_1);
$worksheet->merge_range(\'C2:G2\', \'11000 / MERKEZ OFIS\', $header);
$worksheet->merge_range(\'A3:B3\', \'Taseron\', $column_1);
$worksheet->merge_range(\'C3:G3\', \'ENK / ENKA\', $header);
$worksheet->merge_range(\'A4:B4\', \'Ekip Adi\', $column_1);
$worksheet->merge_range(\'C4:G4\', \'00020-MERKEZ OFIS\', $header);
$worksheet->merge_range(\'A5:B5\', \'Ekip Kodu\', $column_1);
$worksheet->merge_range(\'C5:D5\', \'11000ENK20\', $header);
$worksheet->write(5, 0, \'56071\', $header);
$worksheet->merge_range(\'B6:C6\', \'TIMUR TUSUPBEKOV\', $column_1);
$worksheet->write(5, 3, \'SOFOR\', $column_1);
$worksheet->write(5, 4, \'\', $column_1);
$worksheet->write(5, 5, \'\', $column_1);
$worksheet->write(5, 6, \'\', $column_1);
$worksheet->write(5, 7, \'\', $column_1);
$worksheet->write(5, 8, \'\', $column_1);
$worksheet->write(5, 9, \'\', $column_1);
$worksheet->write(5, 10, \'\', $column_1);
$worksheet->write(5, 11, \'\', $column_1);
$worksheet->write(5, 12, \'\', $column_1);
$worksheet->write(5, 13, \'\', $column_1);
$worksheet->write(5, 14, \'\', $column_1);
$worksheet->write(5, 15, \'\', $column_1);
print "Content-Type: text/html\\n\\n";
print "
Ok";
print \'
click\';
###############
Пока я не добавляю вот эти строки
use CGI qw/:standard/;
my $ffff = param(\'ffff\');
все работает идеально, после добовления ошибка