Help for this page

Select Code to Download


  1. or download this
    use utf8;
use 5.14.0;
...
    my $m = ($s =~ $re) ? "true" : "false";
    printf "%s =~ %30s  == %s\n", $s, decode("UTF-8",Dumper($re)), $m;
}
  2. or download this
    ~/perl5/perlbrew/perls/perl-5.16.0/bin/perl test.pl
ä =~           qr/(?^u:\N{U+00e4})/  == true
...
ä =~                   qr/(?^u:ä+)/  == true
ä =~                  qr/(?^u:[ä])/  == true
ä =~                 qr/(?^u:[ä]+)/  == false