fork download
copy 
  1. #!/usr/bin/perl
  2. use utf8;
  3. binmode STDOUT, ":utf8";
  4.  
  5. my $re = qr/\N{LATIN SMALL LETTER A WITH MACRON AND GRAVE}/u;
  6. my @cases = ("\x{0101}", "\x{0300}", "\x{0101}\x{0300}");
  7.  
  8. for my $str (@cases) {
  9.   if ( $str =~ $re ) {
  10.     print ("matches $re: $str\n");
  11.   } else {
  12.     print ("does not match $re: $str\n");
  13.   }
  14. }
Success #stdin #stdout 0.02s 24232KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
does not match (?^u:\N{U+101.300}): ā
does not match (?^u:\N{U+101.300}): ̀
matches (?^u:\N{U+101.300}): ā̀
https://ideone.com/iO8kBg
language:
Perl (perl 5.28.1)
created:
7 years 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!