Dlaczego Perl powiedział() nie dołączać nowej linii w trybie FCGI?

Question

Mam dziwne zachowanie z funkcją mówienia Perla w trybie FCGI. Newlines nie będą dołączane. Dlaczego to się dzieje?

Przykładowy kod:

#!/usr/bin/perl -wT 
use strict; 
use warnings; 
use utf8; 
use feature qw(say); 
use FCGI(); 
use CGI qw(header); 
my $cnt = 0; 
my $req = FCGI::Request(); 
while ($req->Accept() >= 0) { 
    $cnt++; 
    print header(-type => 'text/plain', -charset => 'utf-8'); 
    say "Hello, world #$cnt"; 
    print "\n"; 
    print "$$\n" 
    print 'Test 1234'; 
} 

Oczekiwany wynik (i rzeczywisty wynik za pośrednictwem konsoli):

Content-Type: text/plain; charset=utf-8 

Hello, world. #1 

6712 
Test 1234 

Rzeczywisty wynik przez Apache/fcgi:

Content-Type: text/plain; charset=utf-8 

Hello, world. #3 
6709 
Test 1234 

Niektóre informacje oprogramowanie ..

Debian Wheezy x86_64 Apache/2.2.22-11 mod_fcgid/1: 2.3.6-1.1 Perl/5.14.2-12 FCGI.pm/0.75-1+b1

Answer 1

Niestety realizacja funkcji say() wymaga, aby uchwyt pliku obsługiwał zmienną $ \. Zasadniczo powiedzieć jest równoważne formie pisemnej:

{ local $\ = "\n"; print LIST } 

Korzystanie fcgi Twój STDOUT zastępuje wiązanej uchwytu pliku, który nie obsługuje $ \. Oznacza to, że funkcja say() nie działa zgodnie z przeznaczeniem. To, czy jest to błąd w FCGI, czy w say(), wydaje się dyskusyjne.