http://www.perlmonks.org?node_id=224235


in reply to Re: Server wide spam stop with qmail
in thread Server wide spam stop with qmail

undef $/ my $body = <>;

E-Mail can be very large. Body includes attachments, so I prefer being slow over using a lot of memory.

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.

  • Comment on Re: Re: Server wide spam stop with qmail

Replies are listed 'Best First'.
Re^3: Server wide spam stop with qmail
by Aristotle (Chancellor) on Jan 04, 2003 at 13:01 UTC
    Ah, good point. In that case you might consider using, say, $/ = \32768; to read 32k chunks while printing the body - gets rid of the useless end-of-line scanning overhead.

    Makeshifts last the longest.

      you might consider using, say, $/ = \32768; to read 32k chunks while printing the body - gets rid of the useless end-of-line scanning overhead.

      Oh, that be a very good idea. *implements*

      Thanks!

      - Yes, I reinvent wheels.
      - Spam: Visit eurotraQ.
      

        When I ran the original code verbatim in my qfilter, the log reported: Not enough arguments for main::link at /usr/local/spam/redir line 34, near ""$maildir/tmp/$tph";" Any thoughts on my mistake?