Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

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
Replies are listed 'Best First'.
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 rifling through the Monastery: (14)
As of 2015-10-07 15:51 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (190 votes), past polls