Re: [FWP] Benchmarking $|++

[Peter Scott <Peter@PSDT.com>]

At 01:47 AM 11/10/99 -0500, Marlin Keefer wrote:
>Kingpin wrote:
> > So, every time you download a module from CPAN you read through it
> > meticulously line by line and make sure that it doesn't do anything
> > "bizarre"?
>
>Of course not! That's what perl is for. Whenever you get a new batch of
>interesting CPAN modules, just run them through this handy-dandy script.
>
>#!/usr/bin/perl -n
>/\$\|\s*=\s*-\s*1/ and (unlink(@ARGV) , die "Destroying CPAN
>contamination\n");

Now *that's* fun!

We need a program that does the reverse of aCertainName.pm, i.e., converts 
bad code into righteous code.

s/(?<=;\s*)map\s*(\{[^;}]+\})/$1 for /g;
s#(?<=\bsystem\s*\(")(?:[\w/]+/)?cat\b#<#g;
s/\$\[\s*=[^=]/die("I am too dangerous to live\\n")\n__END__\n/g;


--
Peter Scott
Pacific Systems Design Technologies


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe