|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Konstantin Stupnik {} 2:5020/400 05 Dec 2001 11:34:42
To : Nikolay Pichtin
Subject : Re: найти русскую букву
--------------------------------------------------------------------------------
Hi!
>
> KS> > >> Есть строка $Str="dfdfвАа";
> KS> > >> Hужно найти позицию любой первой русской буквы.
> KS> > >> Как это сделать оптимально ?
> KS> >>
> KS> >> Hаписать XS :)
> KS> >>
> KS> >> Hу или, несколько приблизительно, так:
> KS> >> $Str=~/[\x80-\xff]/;
> KS> >> my $pos=length($`);
> KS>> Торможу!
> KS>> my $pos=$-[0];
>
> А не проще-ли так:
>
> my $Str="dfdfвАа";
>
> $Str =~ s/([^a-zA-Z0-9])./$1/;
> print "$1\n";
В оригинале просили "позицию" :)
> AC> Это что за новый массив? Какая версия perl?
>
> $- число строк, оставшихся на странице текущего потока вывода
$- и @- суть разные вещи btw :)
--
Best regards,
Konstantin.
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
