Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (9)
As of 2014-12-29 09:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (185 votes), past polls