Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Regex spamming.

by yosefm (Friar)
on Jan 15, 2004 at 22:42 UTC ( [id://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;}'

[download]
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?
[reply]
      Try this: 

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

output:
a

      [download]

      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;}'

      [download]
      My public key
[reply]
[d/l]
[select]

Back to Meditations

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
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? • Last hour • Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2024-04-24 18:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found