🚀 go-pugleaf

piecia aka dracorp wrote:
> I aby teraz sterować mplayerem wystarczy pisać do fifo ale z poziomu 
> skryptu działa np. to:
> #v+
> `echo "pause" > $fifo_file`;
> #v-
> a nie działa to:
> #v+
> print $fifo_fh "pause\n";
> #v-
> Aczkolwiek przy uruchomionym skrypcie testowałem printa bezpośrednio z 
> terminala tj:
> #v-
> perl -e 'open($fifo_fh,"+</tmp/radiod.piecia.fifo"); print $fifo_fh "pause
> \n"; close $fifo_fh;'
> #v+ i stąd działało.
> Pytanie dlaczego?

Perl wewnętrznie tworzy bufory dla każdego otwartego uchwytu i domyślnie
nie są one automatycznie opróżniane po każdym zapisie. Dołóż na początku
skryptu:

use IO::Handle;

a po otwarciu fifo:

autoflush $fifo_fh;

> Przy okazji dlaczego dla trybu ">" przy otwieraniu fifo blokuje mi 
> skrypt? Przy czym dla ostatniego przykładu nieważne czy dam ">" czy 
> "+<"(lub "+>") to nie blokuje.

Jesteś pewien, że blokuje się na samym otwieraniu, tj. na syscallu open()?