Знания perl стремятся к нулю

[nobody]

Вопрос просто я передаю скрипту данные
http://www.site.ru/cgi-bin/test.pl?m=2&d=4

Как мне потом использовать данные которые передал, точнее что нужно сделать что бы я мог потом ими манипульровать в скрипте?

P.S. Камни не кидать... Perl незнаю.

[Wyclef]

shell> perldoc CGI

[NeoNox]

use CGI qw/:standard/;

$m = param(\'m\');
$d =param(\'d\');

[nobody]

Да читать доки я умею, но времени мало. Спасибо за ответ.

P.S. Гениальный ответ.
Проще было ответить как это сделать

[Wyclef]

[off]...нормально )))[/off]

[nobody]

неработает, пишет:
Global symbol "$f" requiresexplict package name at там то

[NeoNox]

use strict;
use CGI qw/:standard/;

my $m = param(\'m\');
my $d =param(\'d\');

[nobody]

в адресной строке
test.pl?fff=milka

#### Скрипт ####
use strict;
use CGI qw/:standard/;
my $ffff = param(\'ffff\');
print "Content-Type: text/html\\n\\n";
print $ffff;

[NeoNox]

nobody это вопрос?

[Wyclef]

test.pl?fff=milka
#### Скрипт ####
use strict;
use CGI qw/:standard/;
my $ffff = param(\'ffff\');

[nobody]

Ну да, просто не работает, выдает 500 ошибку

[Wyclef]

Надеюсь, у тебя первая строчка скрипта такая?..

Код: [Выделить]

#!/путь_до_perl/perl

[nobody]

Строчка правильная...

Поскольку
print "Content-Type: text/html\\n\\n";
print "Ok
";

Работает прекрасно.
Ума не приложу в чем дело

[NeoNox]

nobody Полностью весь скрипт в студию.

[nobody]

#!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\');
все работает идеально, после добовления ошибка