Beefy Boxes and Bandwidth Generously Provided by pair Networks DiBona
Your skill will accomplish
what the force of many cannot

Regex spamming.

by yosefm (Friar)
on Jan 15, 2004 at 22:42 UTC ( #321698=perlmeditation: print w/ replies, xml ) Need Help??

Being a part-time perl poet (I posted some here) I often look at language in a perlish way, sometimes finding interesting things for poetry.

I was looking through comp.lang.perl.modules when I saw this subject line: "Turn $5 into $15,000..." which is of course spam and I ignored it. And then I thought - "Hey, this could be a valid regex question, dealing with capturing parentheses... ". You might say who's going to use $15,000 but it's still funny, isn't it?

perl -e'$b=unpack"b*",pack"H*","59dfce2d6b1664d3b26cd9969503";\ for(;$a<length$b;$a+=9){print+pack"b8",substr$b,$a,8;}'
My public key

Comment on Regex spamming.
Download Code
Re: Regex spamming.
by BUU (Prior) on Jan 16, 2004 at 21:29 UTC
    Would the $x variables really go to $15000 ? How high do they go?
      Try this:

      perl -e'$a="(.)"x15000;$_="a"x15000;/$a/;print "$15000\n";' output: a

      Looks like it goes that far if you have the RAM.

      perl -e'$b=unpack"b*",pack"H*","59dfce2d6b1664d3b26cd9969503";\ for(;$a<length$b;$a+=9){print+pack"b8",substr$b,$a,8;}'
      My public key

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://321698]
Approved by rob_au
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (12)
As of 2014-04-16 20:10 GMT
Find Nodes?
    Voting Booth?

    April first is:

    Results (433 votes), past polls