ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Anton Suhomlinov                     2:5020/1452.1  21 Jul 2001  05:21:42
 To : Alexander Babanov
 Subject : как выделить подстроки?
 -------------------------------------------------------------------------------- 
 

 20 Jul 01 14:00, Alexander Babanov wrote to Grigory Vaigandt:
 
  AB> $str = 'abra-svabra-kadabra';
  AB> $rxp = '('.(join ')-(', split /-/, $str).')';
  AB> $str =~ /^$rxp$/;
 
 Во блин. А почему не
 
 $_ = "abra-shvabra-kadabra" ;
 my ( $f, $s, $th ) = /([^-]+)/g ;
 
 ?
 
 Или просто не
 
 $_ = "abra-shvabra-kadabra" ;
 /([^-]+)/g ;
 
 ?
 
 //Anton
 vojd@moecho.org
 
 --- OS/2 Version: 4.50 Revision: 14.062 Uptime: 0d 4h 49m 33s
  * Origin: Wavin' your banner all over the place (2:5020/1452.1)
 
 

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

Тема:    Автор:    Дата:    как выделить подстроки?   Grigory Vaigandt   20 Jul 2001 09:57:23   как выделить подстpоки?   Konstantin Petrenko   20 Jul 2001 15:42:13   Re: как выделить подстроки?   Alexander Babanov   20 Jul 2001 14:00:04   как выделить подстроки?   Anton Suhomlinov   21 Jul 2001 05:21:42   Re: как выделить подстроки?   Alexander Babanov   23 Jul 2001 11:46:51   как выделить подстроки?   Anton Suhomlinov   24 Jul 2001 02:23:02   как выделить подстроки?   Dmitry Smolin   24 Jul 2001 03:24:54   как выделить подстроки?   Anton Suhomlinov   24 Jul 2001 04:03:55   Re: как выделить подстроки?   Alexander Babanov   24 Jul 2001 07:23:51