|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Yuriy Talakan' 2:5042/13.128 16 Nov 2002 18:10:15 To : All Subject : setlocale --------------------------------------------------------------------------------
Почему этот скрипт выводит только английские слова ("CcC" и "DDDD")? :(((
#!/usr/bin/perl -w
use strict;
use POSIX qw(locale_h);
my $text=" А бб ВвВ ГГГГ A bb CcC DDDD";
setlocale(LC_CTYPE,"ru_RU.koi8r");
while ($text =~ m|\b(\w{3,})\b|g) {
print "Found: \"$1\"\n";
}
--- Microsoft Outlook Express 6.00.2600.0000
* Origin: JSC "Amurenergo" (2:5042/13.128)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/392517efe2a9.html, оценка из 5, голосов 10
|