Looping backreferences
Andrew Savige
ajsavige at yahoo.com.au
Thu Aug 21 04:06:42 CDT 2003
> 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
More information about the Melbourne-pm
mailing list