Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

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

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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (8)
As of 2017-03-29 18:43 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (352 votes). Check out past polls.