Delka retezce v bajtech

[Jan Kasprzak]

Honza Pazdziora wrote:
: On Fri, May 26, 2006 at 07:02:34PM +0200, Jan Kasprzak wrote:
: > 	Jak nejefektivneji spocitat delku retezece v bajtech? Nejlepe tak,
: > abych nemusel ten potencialne dlouhy retezec pres
: > 
: > 	Encode::encode('utf-8', $data)
: > 
: > prekodovavat do bajtu.
: 
: $ perl
: use utf8;
: my $x = 'ježeček';
: print length($x), "\n";
: {
:         use bytes;
:         print length($x), "\n";
: }
: __END__
: 8
: 10
: $

	Dobry, diky. Dokonce zrejme funguje i jen  bytes::length():

perl -Mutf8 -e '{ use bytes; } $a="ježeček"; print length($a), ",",
	bytes::length($a), "\n"'
7,9

(hmm, kdes vzal tech 8 a 10? tvuj kod mi vraci taky 7 a 9).

-Y.

-- 
| Jan "Yenya" Kasprzak  <kas at {fi.muni.cz - work | yenya.net - private}> |
| GPG: ID 1024/D3498839      Fingerprint 0D99A7FB206605D7 8B35FCDE05B18A5E |
| http://www.fi.muni.cz/~kas/    Journal: http://www.fi.muni.cz/~kas/blog/ |
> I will never go to meetings again because I think  face to face meetings <
> are the biggest waste of time you can ever have.        --Linus Torvalds <