Reverse Regex

Apparently I have too much time on my hands... This isn't so much an obfu as I just wanted to see if I could do it w/ a regex and w/o leveraging the typical methods of reversing a string. And it didn't really seem to fit anywhere else :)

$_='?od lliw xeger a nehw noitcnuf a esu yhW';
while((s/(.)$/$,.=$1;$==length$_;($=!=1)?'':$,;/e)&&($=>length$_)){}
print "$_\n";
[download]

-jbWare

Comment on Reverse Regex Download Code

Replies are listed 'Best First'.
Re: Reverse Regex by jdalbec (Deacon) on May 13, 2005 at 22:46 UTC
`$_='?od lliw reifidom g/ eht nehw pool elihw a esu yhW'; s/(.)/$,=$1.$,;$==length$';($=!=0)?'':$,/eg; print "$_\n";` [download]	[reply] [d/l]
Re^2: Reverse Regex by jbware (Chaplain) on May 14, 2005 at 21:06 UTC
Good call ++	[reply]