"Phil Carmody" <[EMAIL PROTECTED]> schrieb...
> > "Aaron J Mackey" <[EMAIL PROTECTED]> schrieb...
> > > I can't seem to get this any shorter: I want the second
> > > through the next-to-last elements of @F joined by " ",
> > > and then the last item of @F.
> Why not replace the last but one element with a \n?
Because the OP wants to print the next-to-last (with index $#F-1) printed as
well.
Steffen
--
@n=(544290696690,305106661574,116357),$b=16,@c=' ,JPacehklnorstu'=~
/./g;for$n(@n){map{$h=int$n/$b**$_;$n-=$b**$_*$h;$c[@c]=$h}c(0..9);
push@p,map{$c[$_]}@c[c($b..$#c)];$#c=$b-1}print@p;sub'c{reverse @_}
