ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Alexander P. Russkih                 2:468/75       13 Feb 2004  10:25:03
 To : All
 Subject : Re: Вопрос по разбиен
 -------------------------------------------------------------------------------- 
 

 .MSGID: 2:468/75@fidonet c5423b94
 .REPLY: ub3000.dd.vaz.tlt.ru 355f76fc
 .RFC-Path: home.dialup!not-for-mail
 .RFC-Message-ID: <c0hu4f$avo$1@home.dialup>
 .RFC-References: <c0ces1$rm2$1@ub3000.dd.vaz.tlt.ru>
 .RFC-NNTP-Posting-Host: home.dialup
 .RFC-X-Trace: home.dialup 1076657104 11256 192.168.1.1 (13 Feb 2004 07:25:04
 GMT)
 .RFC-X-Complaints-To: usenet@home.dialup
 .RFC-NNTP-Posting-Date: Fri, 13 Feb 2004 07:25:04 +0000 (UTC)
 .RFC-X-Accept-Language: ru, uk, en-us, en
 .RFC-In-Reply-To: <c0ces1$rm2$1@ub3000.dd.vaz.tlt.ru>
 From: "Alexander P. Russkih" <olden@home.dialup>
 Reply-To: rs_alex@bigfoot.com
 
 bvr wrote:
 
 > Подскажите, как строку $str, которая может содержать несколько слов, разбить
 > по словам? т.е. в разных переменных соответствующие слова. Количество слов в
 > строке может быть фиксированное число, например 2. Как сделать, если
 > количество слов в строке заранее неизвестно?
 > Если кто может, приведите пример кода.
 
 Давай для начала определимся, какой именно символьный набор ты подразумеваеш 
 под словом. от этого и начнем плятасть. а в общем случае можно придумать нечто 
 следующее:
 ===кут хере===
 #!/usr/bin/perl -w
 use strict;
 use English;
 
 my $str = q!This cool e-mail makabuka@mail.ru registered for you!;
 
 print "$str\n";
 my(@words) = $str =~ m/\b(\S+)\b/g;
 map {
    print "$_\n";
 } @words;
 ===кут хере===
 -- 
 XMMS: Король И Шут (Как в старой сказке) - Зловещий кузен
 
 --- Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.5) Gecko/20031007
  * Origin: Registered Linux User #341226 (2:468/75@fidonet)
 
 

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