Regex spamming.

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

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?	[reply]
Re: Re: Regex spamming. by yosefm (Friar) on Jan 18, 2004 at 13:41 UTC
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]