|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrey Sapozhnikov 2:5020/400 24 Jul 2000 23:40:27
To : All
Subject : Re: Длина стринга
--------------------------------------------------------------------------------
Dmitriy Goldobin пишет в сообщении <8l9e0r$fbb$1@www.office.ems.chel.su> ...
>> Как узнать длину существующего стринга $name?
>
>my $len = 0;
>for( my $i = 0; $i < 256; ++$i ) {
> my $c = sprintf "\\x%02X", $i;
> $len += @{[$name =~ /($c)/g]};
> }
>
>можно еще length($name), но этим только чайники пользуются
>
Зачем же так сложно, можно одной строкой :-))
$len=sub{$_[0]->(@_)}->(sub{$_[1]eq""?0:$_[0]->($_[0],substr($_[1],1))+1},$n
ame);
Андрей
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Длина стринга 