ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : ЉЁ¬ …ўЈҐ­Ё©                          2:5020/400     02 Sep 2004  11:39:14
 To : Anton Potekhin
 Subject : Re: Разбиение строки
 -------------------------------------------------------------------------------- 
 

 On Thu, 2 Sep 2004 06:27:59 +0000 (UTC), Anton Potekhin <anton@orbita1.ru>  
 wrote:
 
 #!/usr/bin/perl
 
 my $string = qq~2501;"300 новых школьный; сочинений";8;"45,7""";31588~;
 
 $string =~ s/""/"/g;
 
 while ($string =~ /(:?"([^"]*)"|([^;]*));/g)
 { $find = $1;
   # Уберем кавычки, если они есть
   $find =~ s/^"(.*)"$/$1/;
   print $find."\n";
 }
 
 Hо это не решает проблему поиска такой строки как
 "300 новых школьный""; сочинений"
 --- ifmail v.2.15dev5.3
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Разбиение строки   Anton Potekhin   02 Sep 2004 10:27:59   Re: Разбиение строки   ЉЁ¬ …ўЈҐ­Ё©   02 Sep 2004 11:39:14   Разбиение строки   Serge Chervjakov   02 Sep 2004 11:39:53   Re: Разбиение строки   Artem Chuprina   02 Sep 2004 13:28:14   Re: Разбиение строки   Artem Chuprina   02 Sep 2004 11:43:34