﻿<?xml version='1.0' encoding='UTF-8'?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/"><channel><title>Релиб / Веб-программирование / Perl  / исчезает массив данних при grep / Latest Posts</title><generator>InstantForum.NET v4.1.4</generator><description>Релиб</description><link>http://www.relib.com/forums/</link><webMaster>robot@relib.com</webMaster><lastBuildDate>Fri, 05 Sep 2008 17:05:50 GMT</lastBuildDate><ttl>20</ttl><item><title>RE: исчезает массив данних при grep</title><link>http://www.relib.com/forums/Topic876523-18-1.aspx</link><description>Спасибо за ответи.после добавление $| = 1 иногда показивает нормално.похоже тут проблема связи Apache&amp;lt;-&amp;gt;Perl(mod_perl).P.S.это проблемная част из одной тестовой программи. поетомувсе тут упрощенно: выводится в консол, а не файл. Запятая - ранше был так    print @m1 , &amp;quot;&lt;br&gt;&amp;quot;;и от этово остался.</description><pubDate>Fri, 29 Jul 2005 08:53:00 GMT</pubDate><dc:creator>koriun</dc:creator></item><item><title>RE: исчезает массив данних при grep</title><link>http://www.relib.com/forums/Topic876523-18-1.aspx</link><description>а зачем тебе запятая в строке[code]print &amp;quot;Array: @{m1}&amp;quot;, &amp;quot;&lt;br&gt;&amp;quot;;[/code]почему не[code]print &amp;quot;Array: @{m1}&lt;br&gt;&amp;quot;;[/code]</description><pubDate>Thu, 28 Jul 2005 12:59:00 GMT</pubDate><dc:creator>umbra</dc:creator></item><item><title>RE: исчезает массив данних при grep</title><link>http://www.relib.com/forums/Topic876523-18-1.aspx</link><description>все таки похоже тут дело в буферизации. попробуй сначала составить полную строку и потом ее целиком напечатать. Наподобие[code]$| = 1;my $html = &amp;quot;content-type: text/html&lt;br&gt;&lt;br&gt;&amp;quot;;my @my_array =    qw(20010717 20010717 20010718 20010718 20010719 20010719);my @m1 = grep {! $_{$_}++ } @my_array;$html .= &amp;quot;Array: @{m1}&amp;quot;, &amp;quot;&lt;br&gt;&amp;quot;;print $html;[/code]Кроме того, ты выводишь на консоль или в файл? Если в файл, тов самом начале надо выбрать дескриптор файла функцией select [code]select MYFILE;[/code]</description><pubDate>Thu, 28 Jul 2005 10:41:00 GMT</pubDate><dc:creator>umbra</dc:creator></item><item><title>RE: исчезает массив данних при grep</title><link>http://www.relib.com/forums/Topic876523-18-1.aspx</link><description>непомогло</description><pubDate>Thu, 28 Jul 2005 08:29:00 GMT</pubDate><dc:creator>koriun</dc:creator></item><item><title>RE: исчезает массив данних при grep</title><link>http://www.relib.com/forums/Topic876523-18-1.aspx</link><description>а ты не пробовал отключить буферизацию вывода?[code]#!/usr/bin/perl -w$| = 1[/code]и дальше по тексту</description><pubDate>Mon, 25 Jul 2005 19:56:00 GMT</pubDate><dc:creator>umbra</dc:creator></item><item><title>исчезает массив данних при grep</title><link>http://www.relib.com/forums/Topic876523-18-1.aspx</link><description>Привет всем. ест такая программа. [code]#!/usr/bin/perl -wprint &amp;quot;content-type: text/html&lt;br&gt;&lt;br&gt;&amp;quot;;my @my_array =       qw(20010717 20010717 20010718 20010718 20010719 20010719);my @m1 = grep {! $_{$_}++ } @my_array;print &amp;quot;Array: @{m1}&amp;quot;, &amp;quot;&lt;br&gt;&amp;quot;;[/code]Из линух консола видает следыши результат:[code]debian:# ./test.plcontent-type: text/html20010717 20010718 20010719debian:#[/code]  но через CGI это программа печатает толко [code]Array: [/code]Кто нибут может обяснит куда пропадает массив ?</description><pubDate>Mon, 25 Jul 2005 15:55:00 GMT</pubDate><dc:creator>koriun</dc:creator></item></channel></rss>