The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Преобразование строки в perl"
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

"Преобразование строки в perl"  
Сообщение от Oleg email(??) on 24-Июл-06, 11:41 
уважаемые гуру,
как в перле поизящьнее преобразовать строку вида 1234567890 в 2143658709 (т.е. попарно поменять символы местами)?
Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

 Оглавление

Сообщения по теме [Сортировка по времени, UBB]


1. "Преобразование строки в perl"  
Сообщение от matsi on 24-Июл-06, 13:02 
>уважаемые гуру,
>как в перле поизящьнее преобразовать строку вида 1234567890 в 2143658709 (т.е. попарно
>поменять символы местами)?


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

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

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

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

2. "Преобразование строки в perl"  
Сообщение от Oleg email(??) on 24-Июл-06, 13:45 
Спасибо
Работает. То что нужно!

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


Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру