|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Timur V. Irmatov 2:5020/400 29 Aug 2001 13:35:24
To : All
Subject : simple regexp
--------------------------------------------------------------------------------
Здравствуйте, народ!
Помогите разобраться с такой проблемой. Есть скрипт (см. ниже), задача
которого - разбивать прочитанные строки на поля, которые разделяются
произвольной комбинацией символов # и @. То есть строка 11@@22##33@#@44
должна быть разделена на поля: 11, 22, 33, 44. Hе получается, блин :( ...
Причем, если заменить (@|#) на [@#] - все проходит на ура...
#!/usr/bin/perl -w
while (<STDIN>) {
chomp();
@field = split(/(@|#)+/);
print "Total fields: " . scalar(@field) . "\n";
foreach $i (@field) {
print "-$i-\n";
}
}
Помогите, плиз....
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
