исчезает массив данних при grep

@koriun · Регистрация: 19.12.2007

Author24 — интернет-сервис помощи студентам

Привет всем.

ест такая программа.

Код

#!/usr/bin/perl -w
print 'content-type: text/html

';

my @my_array = 
      qw(20010717 20010717 20010718 20010718 20010719 20010719);
my @m1 = grep {! $_{$_}++ } @my_array;
print 'Array: @{m1}', '
';

Из линух консола видает следыши результат:

Код

debian:# ./test.pl
content-type: text/html

20010717 20010718 20010719
debian:#

но через CGI это программа печатает толко

Код

Array:

Кто нибут может обяснит куда пропадает массив ?

02.10.2011, 20:33

а ты не пробовал отключить буферизацию вывода?

Код

#!/usr/bin/perl -w
$| = 1

и дальше по тексту

@koriun · 05.10.2011, 09:06 **[ТС]**

непомогло

05.10.2011, 11:18

все таки похоже тут дело в буферизации. попробуй сначала составить полную строку и потом ее целиком напечатать. Наподобие

Код

$| = 1;
my $html = 'content-type: text/html

';

my @my_array = 

   qw(20010717 20010717 20010718 20010718 20010719 20010719);

my @m1 = grep {! $_{$_}++ } @my_array;
$html .= 'Array: @{m1}', '
';
print $html;

Кроме того, ты выводишь на консоль или в файл? Если в файл, то
в самом начале надо выбрать дескриптор файла функцией select

Код

select MYFILE;

05.10.2011, 13:36

а зачем тебе запятая в строке

Код

print 'Array: @{m1}', '
';

почему не

Код

print 'Array: @{m1}
';

@koriun · 06.10.2011, 09:30 **[ТС]**

Спасибо за ответи.

после добавление $| = 1 иногда показивает нормално.
похоже тут проблема связи Apache<->Perl(mod_perl).

P.S.
это проблемная част из одной тестовой программи. поетому
все тут упрощенно: выводится в консол, а не файл.

Запятая - ранше был так
print @m1 , '
';
и от этово остался.

@koriun 1 / 1 / 0 Регистрация: 19.12.2007 Сообщений: 199
		1
	исчезает массив данних при grep 02.10.2011, 16:32. Показов 2392. Ответов 5 Метки нет (Все метки) Привет всем. ест такая программа. Код #!/usr/bin/perl -w print 'content-type: text/html '; my @my_array = qw(20010717 20010717 20010718 20010718 20010719 20010719); my @m1 = grep {! $_{$_}++ } @my_array; print 'Array: @{m1}', ' '; Из линух консола видает следыши результат: Код debian:# ./test.pl content-type: text/html 20010717 20010718 20010719 debian:# но через CGI это программа печатает толко Код Array: Кто нибут может обяснит куда пропадает массив ? 0

umbra
	02.10.2011, 20:33	2
	а ты не пробовал отключить буферизацию вывода? Код #!/usr/bin/perl -w $\| = 1 и дальше по тексту

@koriun 1 / 1 / 0 Регистрация: 19.12.2007 Сообщений: 199
	05.10.2011, 09:06 [ТС]	3
	непомогло 0

umbra
	05.10.2011, 11:18	4
	все таки похоже тут дело в буферизации. попробуй сначала составить полную строку и потом ее целиком напечатать. Наподобие Код $\| = 1; my $html = 'content-type: text/html '; my @my_array = qw(20010717 20010717 20010718 20010718 20010719 20010719); my @m1 = grep {! $_{$_}++ } @my_array; $html .= 'Array: @{m1}', ' '; print $html; Кроме того, ты выводишь на консоль или в файл? Если в файл, то в самом начале надо выбрать дескриптор файла функцией select Код select MYFILE;

umbra
	05.10.2011, 13:36	5
	а зачем тебе запятая в строке Код print 'Array: @{m1}', ' '; почему не Код print 'Array: @{m1} ';

@koriun 1 / 1 / 0 Регистрация: 19.12.2007 Сообщений: 199
	06.10.2011, 09:30 [ТС]	6
	Спасибо за ответи. после добавление $\| = 1 иногда показивает нормално. похоже тут проблема связи Apache<->Perl(mod_perl). P.S. это проблемная част из одной тестовой программи. поетому все тут упрощенно: выводится в консол, а не файл. Запятая - ранше был так print @m1 , ' '; и от этово остался. 0