|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : bvr 2:5020/400 11 Feb 2004 09:34:06
To : All
Subject : Вопрос по разбиению строк на слова
--------------------------------------------------------------------------------
Привет
Вот пример скрипта
.......
open(FILE, "base.txt") || die "Can't open database file: $!"; flock(FILE,
2); # lock it
@DB = <FILE>;
flock(FILE, 8); # unlock it
close(FILE);
foreach $str(@DB) {
Присваиваем целую строку переменной $sEmail
$sEmail = $str;
chomp($sEmail); # remove <CR> at end
$sEmail =~ tr/A-Z/a-z/;
if($in{'e-mail'} eq $sEmail) {
SendMail($sEmail, "Subject", "Dear Sir ....");
#print "Please check your e-mail box";
print "Location: $Location1\n\n";
exit;
}
}
...........
Подскажите, как строку $str, которая может содержать несколько слов, разбить
по словам? т.е. в разных переменных соответствующие слова. Количество слов в
строке может быть фиксированное число, например 2. Как сделать, если
количество слов в строке заранее неизвестно?
Если кто может, приведите пример кода.
Спасибо что не отказали
--
Бажанов
Владимир
--- ifmail v.2.15dev5.3
* Origin: GenDR News Server (2:5020/400)
Вернуться к списку тем, сортированных по:
|
