# This file is encoded in old UTF-8.
die "This file is not encoded in old UTF-8.\n" if q{あ} ne "\xe3\x81\x82";
use Char::OldUTF8;
print "1..6\n";
my $__FILE__ = __FILE__;
# 「^」という正規表現を使った場合
$_ = "AAA\nBBB\nCCC";
@_ = split(m/^/, $_);
if (join('', map {"($_)"} @_) eq "(AAA\n)(BBB\n)(CCC)") {
print qq{ok - 1 \@_ = split(m/^/, \$\_) $^X $__FILE__\n};
}
else {
print qq{not ok - 1 \@_ = split(m/^/, \$\_) $^X $__FILE__\n};
}
$_ = "AAA1\n2BBB1\n2CCC";
@_ = split(m/^2/, $_);
if (join('', map {"($_)"} @_) eq "(AAA1\n)(BBB1\n)(CCC)") {
print qq{ok - 2 \@_ = split(m/^2/, \$\_) $^X $__FILE__\n};
}
else {
print qq{not ok - 2 \@_ = split(m/^2/, \$\_) $^X $__FILE__\n};
print "<<", join('', map {"($_)"} @_), ">>\n";
}
$_ = "AAA1\n2BBB1\n2CCC";
@_ = split(m/^2/m, $_);
if (join('', map {"($_)"} @_) eq "(AAA1\n)(BBB1\n)(CCC)") {
print qq{ok - 3 \@_ = split(m/^2/m, \$\_) $^X $__FILE__\n};
}
else {
print qq{not ok - 3 \@_ = split(m/^2/m, \$\_) $^X $__FILE__\n};
print "<<", join('', map {"($_)"} @_), ">>\n";
}
$_ = "AAA1\n2BBB1\n2CCC";
@_ = split(m/1^/, $_);
if (join('', map {"($_)"} @_) eq "(AAA1\n2BBB1\n2CCC)") {
print qq{ok - 4 \@_ = split(m/1^/, \$\_) $^X $__FILE__\n};
}
else {
print qq{not ok - 4 \@_ = split(m/1^/, \$\_) $^X $__FILE__\n};
}
$_ = "AAA1\n2BBB1\n2CCC";
@_ = split(m/1\n^2/, $_);
if (join('', map {"($_)"} @_) eq "(AAA)(BBB)(CCC)") {
print qq{ok - 5 \@_ = split(m/1\\n^2/, \$\_) $^X $__FILE__\n};
}
else {
print qq{not ok - 5 \@_ = split(m/1\\n^2/, \$\_) $^X $__FILE__\n};
print "<<", join('', map {"($_)"} @_), ">>\n";
}
$_ = "AAA1\n2BBB1\n2CCC";
@_ = split(m/1\n^2/m, $_);
if (join('', map {"($_)"} @_) eq "(AAA)(BBB)(CCC)") {
print qq{ok - 6 \@_ = split(m/1\\n^2/m, \$\_) $^X $__FILE__\n};
}
else {
print qq{not ok - 6 \@_ = split(m/1\\n^2/m, \$\_) $^X $__FILE__\n};
print "<<", join('', map {"($_)"} @_), ">>\n";
}
__END__