Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re^3: Filehandle Filter

by choroba (Cardinal)
on Nov 23, 2021 at 17:19 UTC ( [id://11139057]=note: print w/replies, xml ) Need Help??


in reply to Re^2: Filehandle Filter
in thread Filehandle Filter

What version of Perl are you using? The original usage example 
    use Filter::Handle qw/subs/;
    Filter \*STDOUT, sub { "Foo: @_\n" };
    print "Bar";
    UnFilter \*STDOUT;

[download]
works for me correctly in 5.6.2, but fails in 5.10.1 with 
Deep recursion on subroutine "Filter::Handle::PRINT" at .../lib/Filter
+/Handle.pm line 51.
Segmentation fault (core dumped)

[download]

When I replace $_[0] with shift, it fails in all the versions from 5.6.2 to blead: 

Not a GLOB reference at .../lib/Filter/Handle.pm line 50.
    (in cleanup) Not a GLOB reference at .../lib/Filter/Handle.pm line
+ 25 during global destruction.

[download]

> it's a shame that this is no longer on CPAN

See Text::OutputFilter.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In Section Cool Uses for Perl

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://11139057]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others admiring the Monastery: (5)
As of 2024-04-24 03:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found