fork download
copy 
  1. #!/usr/bin/perl
  2. use v5.10;
  3.  
  4. binmode STDOUT, ":utf8";
  5.  
  6. my $mark = "Mark";
  7. my $leon = "L\x{e9}on";
  8. my $iloveny = "I \x{2665} NY";
  9.  
  10. foreach my $v ($mark, $leon, $iloveny) {
  11.     say $v . " is valid"
  12.         if utf8::valid($v);  # consistent bytes or extended utf-8, not mixed
  13.  
  14.     say $v . " is utf-8"
  15.         if utf8::is_utf8($v);  # consistent bytes or extended utf-8, not mixed
  16.  
  17. }
  18.  
Success #stdin #stdout 0.01s 5536KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Mark is valid
Léon is valid
I ♥ NY is valid
I ♥ NY is utf-8
https://ideone.com/thuRDv
Idiom #231 Test if bytes are a valid UTF-8 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!