Golf?
-p and
$_= save you one space over
-n and
say:
perl -aplF"/\./" -E"$_=join q{.},reverse@F" zones.txt
and a manual split takes less than
-F (assuming you don't get flags for free):
perl -lpE"$_=join q{.},reverse split/\./" zones.txt
Using
$, in place of
join saves you 2, except then you lose
$_=
perl -lnE"$,=q{.};say reverse split/\./" zones.txt
but you still win w/ a regex:
perl -pE"s/(.+)\.(.+)\.(.+)/$3.$2.$1/" zones.txt
and to me, that one seems a whole lot more obvious than the other offerings.
#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.
