Forum Webscript.Ru

Программирование => Perl => Тема начата: ondr от 08 Сентября 2003, 13:42:25

Название: Странное поведение mod_perl ...
Отправлено: ondr от 08 Сентября 2003, 13:42:25

Пишем небольшой скриптик
----------------------
#!/usr/bin/perl -w
use strict;
print "Content-type: text/html\\n\\n";

my @a = (1, 2);
my $n = \\@a;

#print join(\',\', @$n);
ggg($n);

sub ggg { print join(\',\', @{$_[0]}) }
----------------------

Под mod_cgi выводит на экран: 1,2 (все верно)

Под mod_perl выводит: 1,21 (тоесть к последнему элементу добавляется единица в конце!)

Может кто сталкивался с этим?

ps: Со всеми остальными типами данных все нормально. Проблема только с массивами. И только при выводе через функцию. Если раскомментировать 8-ю строку и закомментировать 9-ю то выводит правильно.

Название: Странное поведение mod_perl ...
Отправлено: ondr от 09 Сентября 2003, 14:46:47

Сорри господа, что побеспокоил :)
Мой mod_perl после долгих экспериментов накрылся медным тазом и чудил постоянно. Простая переустановка спасла положение.