Looping backreferences

[Andrew Savige]

> We could try eliminating the join and the reverse:
>
> $net = "$+." x defined($3)."$2.$1"
>    if $zone =~ /^(\d+)\.(\d+)\.(?:(\d+)\.)?in-addr\.arpa$/;

which can obviously be improved by fiddling with the parentheses:

$net="$3$2.$1" if $zone=~/^(\d+)\.(\d+)\.((?:\d+\.)?)in-addr\.arpa$/;

which is finally a one-liner. :-)

/-\
--
You want it in one line?  Does it have to fit in 80 columns?   :-)
             -- Larry Wall in <7349 at jpl-devvax.JPL.NASA.GOV>


http://search.yahoo.com.au - Yahoo! Search
- Looking for more? Try the new Yahoo! Search