|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Eugeniy Muran' 2:4623/13.1 28 Dec 2000 01:01:41
To : Kozachenko Alexey
Subject : Вопросы по регулярным выражениям
--------------------------------------------------------------------------------
і Позволю себе напомнить, что в Среду 27 Декабря 2000 года, в 20:38
і Kozachenko Alexey писал к All о "Вопросы по регулярным выражениям"
АДДДДДДДД<<<
KA> У меня есть строчка такого вида
KA> $temp = '1||xxx|#2||xxx|#3||ttt|#4||ttt'; или
KA> $temp = '1||xxx|#2||xxx|#3||ttt|#4'; или
KA> $temp = '1||xxx|#2||xxx|#3||ttt|#';
KA> 1. Как из нее выделить подстроку '3||ttt', т.е стоящую между
KA> последними двумя |# и |#?
Hе пинайте - вот мой ваpиант:
>=== Здесь родился pl.pl! :) ===
#!perl
$temp = '1||xxx|#2||xxx|#3||ttt|#4||ttt';
#$temp = '1||xxx|#2||xxx|#3||ttt|#4';
#$temp = '1||xxx|#2||xxx|#3||ttt|#';
while($temp=~(/\|#/))
{
($a,$b)=split(/\|#/,$temp,2);
$temp=$b;
}
$rezult=$a;
print "$rezult";
>=== Здесь скончался pl.pl! :( ===
ЖНННННННННННННННННННННННННННННННННННННННННННННН[ Всех благ желает Eugeniy ]ННµ
ФННН[Team ASM] [Team C++ Builder] НН [Team КИHО] [Team Hаутилус Помпилиус]НННѕ
. Человеческая мысль ограничена только глупостью, а глупость не имеет границ!
---
* Origin: JackSoft [ ICQ: 44436588, e-mail: jacksoft@chat.ru ] (2:4623/13.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
