History of POPFile/V1FreezeUI

Amatubu_Wiki | RecentChanges | Preferences

Difference (from prior major revision) (no other diffs)

Added: 43a44

my $s_6 = test1_6($text); print length($s_6), '/';

Added: 71a73,77

if ( $s ne $s_6 ) {
print length($s) . "\n";
print length($s_6) . "\n";
print "Error in test1_6.\n";
}

Added: 84a91

'v1_6' => 'test1_6',

Changed: 105c112

$s =~ s/\G($euc_jp*)(($euc_jp)|[\x80-\xFF])?/$1$3/g;

$s =~ s/\G($euc_jp*)(?:(?=$euc_jp)|[\x80-\xFF])?/$1/g;

Changed: 112c119

$s =~ s/\G((?:$euc_jp)*)(($euc_jp)|[\x80-\xFF])?/$1$3/og;

$s =~ s/\G((?:$euc_jp)*)(?:(?=$euc_jp)|[\x80-\xFF])?/$1/og;

Changed: 119c126

$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;

Changed: 127,128c134,135

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;

Changed: 138,139c145,156

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;

Changed: 165c182

</pre>

	Revision 4 . . January 22, 2008 17:08 by Amatubu
	Revision 3 . . January 22, 2008 15:29 by Amatubu
	Revision 2 . . January 22, 2008 14:39 by Amatubu
	Revision 1 . . January 21, 2008 16:59 by Amatubu