IO::Async how using with a named pipe?

bezi1r has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: IO::Async how using with a named pipe? by Your Mother (Archbishop) on Apr 06, 2019 at 19:38 UTC
I had a spinach salad with cottage cheese and home grown tomatoes for lunch, and it was great. Thanks.	[reply]
Re^2: IO::Async how using with a named pipe? by karlgoethebier (Abbot) on Apr 07, 2019 at 09:34 UTC
"...spinach salad with cottage cheese..." Did you really eat this? I guess this dish looks like children shit and abandon all hope. But probably it looks a bit better with the homegrown tomatoes. Best regards, Karl ŤThe Crux of the Biscuit is the Apostropheť `perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'`Help	[reply] [d/l]
Re^3: IO::Async how using with a named pipe? by Your Mother (Archbishop) on Apr 07, 2019 at 21:23 UTC
Looked quite like like this but nicer with paprika and such. I understand it was not Wyke Farms Cheddar or White Stilton Gold but it certainly was presentable! Harrumph!	[reply]
Re^2: IO::Async how using with a named pipe? by markong (Pilgrim) on Apr 06, 2019 at 22:47 UTC
I hate cheese!	[reply]
Re^3: IO::Async how using with a named pipe? by Your Mother (Archbishop) on Apr 06, 2019 at 23:09 UTC
File a help request. Please include specifics about the cheese, the time of ingestion, any physical reactions, and exactly what else you ate or were doing at the time.	[reply]
Re^4: IO::Async how using with a named pipe? by LanX (Saint) on Apr 06, 2019 at 23:43 UTC
Re^4: IO::Async how using with a named pipe? by markong (Pilgrim) on Apr 08, 2019 at 00:06 UTC
Re^5: IO::Async how using with a named pipe? by AnomalousMonk (Archbishop) on Apr 08, 2019 at 01:28 UTC
Some notes below your chosen depth have not been shown here
Re^3: IO::Async how using with a named pipe? by choroba (Cardinal) on Apr 07, 2019 at 06:45 UTC
Cheese `map{substr$_->[0],$_->[1]\|\|0,1}[\\|\|{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^ARGV,3]`	[reply] [d/l]
Re: IO::Async how using with a named pipe? by Anonymous Monk on Apr 07, 2019 at 02:54 UTC
Hello bezi1r, Typically, the monks are generally nice. But, give them something more like what have you tried or where does the code fail. You will likely receive better help. Try replacing the following bits in the code. `while ($$buffref =~ s/^(.*)\n//) { print "$1"; }` [download] With this. `while ($$buffref =~ s/([^\n]+)\n//) { print "$1\n"; $$buffref =~ s/^\n//; }` [download] This works too, another way. `while ( (my $pos = index($$buffref, "\n")) >= 0 ) { print substr($$buffref, 0, $pos + 1); substr($$buffref, 0, $pos + 1, ''); }` [download] Good luck.	[reply] [d/l] [select]