fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3. # Idiom #287 Number of bytes of a string
  4.  
  5. use v5.10;
  6. use charnames qw( :full );
  7. use Encode;
  8.  
  9. binmode STDOUT, ':utf8';
  10.  
  11. my $text = "\N{LATIN SMALL LETTER E WITH ACUTE}";
  12. say length $text;  # 1
  13.  
  14. my $utf8 = Encode::encode('UTF-8', $text);
  15. say length $utf8;  # 2
  16.  
Success #stdin #stdout 0.05s 10344KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
2
https://ideone.com/BrSWzN
Idiom #287 Number of bytes of a string
language:
Perl (perl 5.28.1)
created:
1 year ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!