уважаемые гуру,
как в перле поизящьнее преобразовать строку вида 1234567890 в 2143658709 (т.е. попарно поменять символы местами)?

• Преобразование строки в perl,matsi, 13:02 , 24-Июл-06
• Преобразование строки в perl,Oleg, 13:45 , 24-Июл-06

>уважаемые гуру,
>как в перле поизящьнее преобразовать строку вида 1234567890 в 2143658709 (т.е. попарно
>поменять символы местами)?

Я не гуру, поэтому не очень изячьно. Но вроде работает:

perl -e '$a = "1234567890"; $a =~ s/(.)(.)/$2$1/g; print "$a\n"'

Впрочем, потестить и перепроверить не помешает.

Спасибо
Работает. То что нужно!

>уважаемые гуру,
>как в перле поизящьнее преобразовать строку вида 1234567890 в 2143658709 (т.е. попарно
>поменять символы местами)?