my $s_6 = test1_6($text); print length($s_6), '/'; |
if ( $s ne $s_6 ) { print length($s) . "\n"; print length($s_6) . "\n"; print "Error in test1_6.\n"; } |
'v1_6' => 'test1_6', |
$s =~ s/\G($euc_jp*)(($euc_jp)|[\x80-\xFF])?/$1$3/g; |
$s =~ s/\G($euc_jp*)(?:(?=$euc_jp)|[\x80-\xFF])?/$1/g; |
$s =~ s/\G((?:$euc_jp)*)(($euc_jp)|[\x80-\xFF])?/$1$3/og; |
$s =~ s/\G((?:$euc_jp)*)(?:(?=$euc_jp)|[\x80-\xFF])?/$1/og; |
$s =~ s/\G((?:$euc_jp){0,300})(($euc_jp)|[\x80-\xFF])?/$1$3/og; |
$s =~ s/\G((?:$euc_jp){0,300})(?:(?=$euc_jp)|[\x80-\xFF])?/$1/og; |
while ( $s =~ s/^($euc_jp{0,1000})(($euc_jp)|[\x80-\xFF])?//o ) { $result .= $1 . $3; |
while ( $s =~ s/^($euc_jp{0,1000})(?:(?=$euc_jp)|[\x80-\xFF])?//o ) { $result .= $1; |
while ( $s =~ /($euc_jp{0,300})(($euc_jp)|[\x80-\xFF])?/gso ) { $result .= $1 . $3; |
while ( $s =~ /($euc_jp{0,300})(?:($euc_jp)|[\x80-\xFF])?/gso ) { $result .= $1 . $2; } return $result; } sub test1_6 { my $s = $text; my $result = ''; while ( $s =~ /((?:$euc_jp){0,300})(?:(?=$euc_jp)|[\x80-\xFF])?/gso ) { $result .= $1; |
</pre> |
</pre> |