Craig S. Cottingham writes:

> On Mon, 2004-04-19 at 14:51, Yanick wrote:
>
> > perl -e'print$_=$ARGV[1],(pop)x-(tr|||c-shift)' 10 abc d
>
> perl -e'print$_=$ARGV[1],(pop)x-(y|||c-shift)' 10 abc d

Using pop for all 3 params:

  perl -e'$:=pop;print$_=pop,$:x-(y|||c-pop)' 10 abc d

Smylers

Reply via email to