perl -M"0;@h{split'','ARNDBCEQZGHILKMFPSTWYV'}=(1..22)"-pne "s/([A-Z]) +/$h{$1} /g"
L*
update (also edited the title for personal indexing purpose)
perl -pe 's/[A-Z]/(index" ARNDBCEQZGHILKMFPSTWYV",$&).$"/ge' input.txt
perl -pe 's/\S/(index" ARNDBCEQZGHILKMFPSTWYV",$&).$"/ge' input.txt
the above is wrong.. but..
perl -pe 's/\w/(index"0ARNDBCEQZGHILKMFPSTWYV",$&).$"/ge' input.txt
> The trick with golfing is to wait for Discipulus to have a good idea and steal it from him :P.
best perl compliment I received!
PS
meh.. I had a -1 for not coresponding string in index also it seems that second column is not wanted..
..so a longer version is needed
perl -pe 's/\s.//,s/\w/(index"0ARNDBCEQZGHILKMFPSTWYV",$&).$"/eg' input.txt
L*
In reply to Re: A little golfing challenge: Replacing letters with numbers -- oneliner
by Discipulus
in thread A little golfing challenge: Replacing letters with numbers
by haukex
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |