|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Comoderator of RU.CGI.PERL 2:5020/400 12 Feb 2004 18:15:35
To : bvr
Subject : Moderatorial [+] (was: Вопрос по разбиению строк на слова)
--------------------------------------------------------------------------------
bvr @ Wed, 11 Feb 2004 05:34:06 +0000 (UTC):
b> Привет
b> Вот пример скрипта
b> .......
b> open(FILE, "base.txt") || die "Can't open database file: $!"; flock(FILE,
b> 2); # lock it
b> @DB = <FILE>;
b> flock(FILE, 8); # unlock it
b> close(FILE);
b> foreach $str(@DB) {
b> Присваиваем целую строку переменной $sEmail
b> $sEmail = $str;
b> chomp($sEmail); # remove <CR> at end
b> $sEmail =~ tr/A-Z/a-z/;
b> if($in{'e-mail'} eq $sEmail) {
b> SendMail($sEmail, "Subject", "Dear Sir ....");
b> #print "Please check your e-mail box";
b> print "Location: $Location1\n\n";
b> exit;
b> }
b> }
b> ...........
b> Подскажите, как строку $str, которая может содержать несколько слов, разбить
b> по словам? т.е. в разных переменных соответствующие слова. Количество слов в
b> строке может быть фиксированное число, например 2. Как сделать, если
b> количество слов в строке заранее неизвестно?
b> Если кто может, приведите пример кода.
b> Спасибо что не отказали
Оффтопик. В RU.PERL.
--
Artem Chuprina
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5.3
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по:
|
Moderatorial [+] (was: Вопрос по разбиению строк на слова)