(For some reason, if you have "インドネシア休場" in a a <code> block, Perlmonks escapes the Japanese characters, and then shows the raw entities. Bug?)#!/usr/bin/perl use strict; use warnings; use Benchmark qw[cmpthese]; my $RUNS = shift || 5; print $], "\n"; sub match { my $subj = shift; $subj =~ /^\s*SPECIFIC\sDECISIONS\s*$/; $subj =~ /^\s*Important\s+\S+\s+Decisions\s*$/; $subj =~ /^General\s+Decisions$/; $subj =~ /^E-mail:\s*replies\@x.com$/; } for (1 .. $RUNS) { cmpthese(-3, { english => sub {match "This is a string"}, japanese => sub {match "インドネӟ +1;ア休場"}, }); } __END__ 5.008008 Rate japanese english japanese 466031/s -- -38% english 751158/s 61% -- Rate japanese english japanese 505266/s -- -36% english 793800/s 57% -- Rate japanese english japanese 502207/s -- -36% english 778988/s 55% -- Rate japanese english japanese 498022/s -- -35% english 767420/s 54% -- Rate japanese english japanese 508507/s -- -35% english 780966/s 54% -- 5.010001 Rate japanese english japanese 339534/s -- -41% english 577872/s 70% -- Rate japanese english japanese 416203/s -- -28% english 577831/s 39% -- Rate japanese english japanese 369283/s -- -37% english 581775/s 58% -- Rate japanese english japanese 418431/s -- -19% english 516905/s 24% -- Rate japanese english japanese 417789/s -- -29% english 587599/s 41% -- 5.012002 Rate japanese english japanese 361165/s -- -27% english 496107/s 37% -- Rate japanese english japanese 372533/s -- -33% english 553731/s 49% -- Rate japanese english japanese 362232/s -- -34% english 549086/s 52% -- Rate japanese english japanese 361565/s -- -33% english 537911/s 49% -- Rate japanese english japanese 368166/s -- -32% english 539974/s 47% --
In reply to Re^3: Weird Perl 5.8.8 Regex Problems for Japanese UTF8
by JavaFan
in thread Weird Perl 5.8.8 Regex Problems for Japanese UTF8
by ruski86
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |