Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Filter::Simple bug with here documents

by Ovid (Cardinal)
on Dec 02, 2005 at 04:51 UTC ( #513511=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    package NoFilter;
    
    use Filter::Simple;
    ...
    FILTER_ONLY code => sub {};
    
    1;
    
  2. or download this
    #!/usr/bin/perl
    
    use NoFilter;
    ...
    
    my $buf2 = <<HERE;
    HERE
    
  3. or download this
    sub gen_std_filter_for {
        my ($type, $transform) = @_;
        return sub {
            [$_];   # XXX this is the "voodoo" line
            my $instr;
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://513511]
Approved by bobf
help
Chatterbox?
ExReg takes a cookie from the platter on the sideboard.
ExReg gets a tall glass of milk to wash down the cookies.

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (None)
    As of 2017-04-27 01:03 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?
      I'm a fool:











      Results (497 votes). Check out past polls.