Terms shortener :-)

echo 'authentication' | perl -F'' -lape '$_ = $F[0] . (@F-2) . $F[-1]'
[download]

Modified: added -a as advised by choroba

And like that ... he's gone. -- Verbal

Comment on Terms shortener :-) Select or Download Code

Replies are listed 'Best First'.
Re: Terms shortener :-) by choroba (Cardinal) on Jan 09, 2018 at 13:29 UTC
For pre-5.20 perls, one needs `-alpe` , as `a` ins't implied by `F` . I'd also try `perl -pe 's/.\K(.)(?=.)/length$1/e'` [download] (needs 5.10). ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7*2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re^2: Terms shortener :-) by reisinge (Hermit) on Jan 10, 2018 at 19:26 UTC
Or even `perl -pe 's/(?<=.)(.*)(?=.)/length$1/e'` [download]	[reply] [d/l]