|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Serge Chervjakov 2:5020/400 02 Sep 2004 11:39:53
To : Anton Potekhin
Subject : Разбиение строки
--------------------------------------------------------------------------------
Thu Sep 02 2004 10:27, Anton Potekhin wrote to All:
AP> вот есть строка -
AP> 2501;"300 новых школьных; сочинений";8;"45,7""";31588
AP> надо получить:
AP> 2501
AP> 300 новых школьных; сочинений
AP> 8
AP> 45,7"
AP> 31588
AP> "" заменяется на "
AP> как это сделать ..... регулярными что-то у меня не получилось
Ими и сделать... Покажу то что делается однозначно:
$str=~s/""(")*/"/g;
my ($dig)=$str=~/^(\d+)/;
Остальное, я полагаю, от возможных строк зависит.. но все таки, с учетом того
что наблюдается ; в качестве разделителя:
my @mas=split(/;/,$str);
print join("\n",@mas);
но 300 новых школьных; сочинений тогда будут по отдельности..
В общем читай perldoc perlre и составь сам.. примеры я кинул.. самые простые
естественно:).
--- ifmail v.2.15dev5.3
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
