ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Bolotnov                   2:5052/4.82    29 Aug 2001  15:20:07
 To : Timur V. Irmatov
 Subject : simple regexp
 -------------------------------------------------------------------------------- 
 

 
  29 Aug 01, Timur V. Irmatov -> All:
 
 > while (<STDIN>) {
 >     chomp();
 >     @field = split(/(@|#)+/);
 
 @field = split(/#+|@+/);
 
 >     print "Total fields: " . scalar(@field) . "\n";
 >     foreach $i (@field) {
 >         print "-$i-\n";
 >     }
 > }
 
 Alexander Bolotnov.
 Scientia vincere tenebras.
 
 ---
  * Origin: Я вернулся... (2:5052/4.82)
 
 

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

Тема:    Автор:    Дата:    simple regexp   Timur V. Irmatov   29 Aug 2001 13:35:24   Re: simple regexp   vilfred   29 Aug 2001 15:11:10   simple regexp   Dmitry Smolin   29 Aug 2001 15:17:49   simple regexp   Alexander Bolotnov   29 Aug 2001 15:20:07   Re: simple regexp   Artem Chuprina   31 Aug 2001 09:37:15