|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Voytsekhovsky 2:4625/69.121 30 Jul 2000 22:46:26
To : Dmitriy Goldobin
Subject : Длина стринга
--------------------------------------------------------------------------------
>> Как узнать длину существующего стринга $name?
DG> my $len = 0;
DG> for( my $i = 0; $i < 256; ++$i ) {
DG> my $c = sprintf "\\x%02X", $i;
DG> $len += @{[$name =~ /($c)/g]};
DG> }
DG> можно еще length($name), но этим только чайники пользуются
Значит я - чайник.
ююю С уважением, Александр.
--- GoldED+/386 1.0.0
* Origin: Hе яйца красят человека, а человек яйца. (2:4625/69.121)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
