perlform and write

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

Replies are listed 'Best First'.
Re: perlform and write by moritz (Cardinal) on Oct 18, 2007 at 18:40 UTC
You can use Perl6::Form, or you could capture a file handle to a scalar (see open or IO::Scalar on how to do it), write your form to that scalar and modifiy it before printing. Perl 6 in German	[reply]
Re: perlform and write by shmem (Chancellor) on Oct 19, 2007 at 07:04 UTC
See Re^3: formats output \r\n question --shmem _($_=" "x(1<<5)."?\n".q·/)Oo. G°\ / /\_¯/(q / ---------------------------- \__(m.====·.(_("always off the crowd"))."· ");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}	[reply]
Re^2: perlform and write by Anonymous Monk on Oct 19, 2007 at 08:14 UTC
Thanks - the open sub method works like a charm :)	[reply]
Re^2: perlform and write by Tux (Canon) on Oct 19, 2007 at 09:01 UTC
Indeed works like a charm, but be careful! Does not work with tied filehandles Does a fork, so if you have open database connections or other external links, be extra careful. Enjoy, Have FUN! H.Merijn	[reply]
Re^3: perlform and write by Anonymous Monk on Oct 19, 2007 at 18:38 UTC
Indeed :) some pointers for anyone finding this with search... while( <STDIN> ) blocks, (while can't assume the format is done printing, even if we know the exact # of lines being written) ... solved by exiting the while on N written lines since I know N. this is being run from a daemon... which is a child process all too itself. the daemon runs this capture on X formats every K seconds... each pipe is a new child process... defuncts like WOAH! :) remember to reap children Re: Unix Review column	[reply]