Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Работа со строками в Perl / 2 сообщений из 2, страница 1 из 1
14.07.2012, 21:37:26
    #37879492
SpaceQuester
SpaceQuester
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа со строками в Perl
Подскажите пожалуйста как работать со строками в Perl. Синтаксис непривычен после Питона.
Есть строка которая динамически формируется у меня в виде $str = "ie: 1234567890; cl: 987654321; st: Pass";
Как вывести на печать первую группу цифр? (вторую группу цифр и третью часть, но там после "st: " может стоять либо "Pass", либо "Fail").

Форумы читал, всё сводиться к регекспам. Но пока их не очень осилил. Покажите пример, если вам не трудно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2012, 22:54:28
    #37879530
vkle
vkle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа со строками в Perl
Не трудно...
Код: sql
1.
2.
3.
4.
5.
#!/usr/bin/perl

$str = "ie: 1234567890; cl: 987654321; st: Pass";
$str =~ /(\d+)\D+(\d+)\D+st\:.*(Pass|Fail)/;
print "1  $1 \n2  $2 \n3  $3 \n";
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Работа со строками в Perl / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 535ms
Закрыть
start [/forum/topic.php?fid=23&tablet=1&tid=1464916]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 213ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 229ms
total:  535ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]