# encoding: GBK
# This file is encoded in GBK.
die "This file is not encoded in GBK.\n" if q{ } ne "\x82\xa0";
use Char;
print "1..10\n";
my $__FILE__ = __FILE__;
$line = "A^`ceg";
$before = "A^";
$after = "BB";
# }b`µÈ¢Ìª³µ¢
if ($line !~ s/$before/$after/) {
if ($line eq "A^`ceg") {
print qq{ok - 1 \$line !~ s/\$before/\$after/ --> ($line) $^X $__FILE__\n};
}
else {
print qq{not ok - 1 \$line !~ s/\$before/\$after/ --> ($line) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 1 \$line !~ s/\$before/\$after/ --> ($line) $^X $__FILE__\n};
}
$line = "A^`ceg";
$before = "A^";
$after = "BB";
# }b`³¹é½ßÉÍ \Q...\E ªKv
if ($line =~ s/\Q$before\E/$after/) {
if ($line eq "BB`ceg") {
print qq{ok - 2 \$line =~ s/\\Q\$before\\E/\$after/ --> ($line) $^X $__FILE__\n};
}
else {
print qq{not ok - 2 \$line =~ s/\\Q\$before\\E/\$after/ --> ($line) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 2 \$line =~ s/\\Q\$before\\E/\$after/ --> ($line) $^X $__FILE__\n};
}
$line = "^`ceg";
$before = "^";
$after = "½";
# ±ÌLqÅ JPerl ÌêÍ}b`µAPerl ÌêÍ}b`µÈ¢
# Perl Ý·© JPerl Ý·ÌÇ¿çÉ·é©Yñ¾ª...
# Perl Ý·Æ¢¤±ÆÅ}b`µÈ¢Ìª³µ¢Æ¢¤±Æɵ½
if ($line !~ s/$before/$after/) {
if ($line eq "^`ceg") {
print qq{ok - 3 \$line !~ s/\$before/\$after/ --> ($line) $^X $__FILE__\n};
}
else {
print qq{not ok - 3 \$line !~ s/\$before/\$after/ --> ($line) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 3 \$line !~ s/\$before/\$after/ --> ($line) $^X $__FILE__\n};
}
$line = "^`ceg";
$before = "^";
$after = "½";
# }b`³¹é½ßÉÍ Perl ÌêÌæ¤É \Q...\E ªKv
if ($line =~ s/\Q$before\E/$after/) {
if ($line eq "½`ceg") {
print qq{ok - 4 \$line =~ s/\\Q\$before\\E/\$after/ --> ($line) $^X $__FILE__\n};
}
else {
print qq{not ok - 4 \$line =~ s/\\Q\$before\\E/\$after/ --> ($line) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 4 \$line =~ s/\\Q\$before\\E/\$after/ --> ($line) $^X $__FILE__\n};
}
$line = " ";
$ret = $line =~ s/^/½/g;
if (not $ret) {
if ($line eq " ") {
print qq{ok - 5 " " =~ s/^/½/ --> ($ret)($line) $^X $__FILE__\n};
}
else {
print qq{not ok - 5 " " =~ s/^/½/ --> ($ret)($line) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 5 " " =~ s/^/½/ --> ($ret)($line) $^X $__FILE__\n};
}
$line = "^ ";
$ret = $line =~ s/^/½/g;
if ($ret == 1) {
if ($line eq "½ ") {
print qq{ok - 6 "^ " =~ s/^/½/ --> ($ret)($line) $^X $__FILE__\n};
}
else {
print qq{not ok - 6 "^ " =~ s/^/½/ --> ($ret)($line) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 6 "^ " =~ s/^/½/ --> ($ret)($line) $^X $__FILE__\n};
}
$line = "^ ^ ^";
$ret = $line =~ s/^/½/g;
if ($ret == 3) {
if ($line eq "½ ½ ½") {
print qq{ok - 7 "^ ^ ^" =~ s/^/½/ --> ($ret)($line) $^X $__FILE__\n};
}
else {
print qq{not ok - 7 "^ ^ ^" =~ s/^/½/ --> ($ret)($line) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 7 "^ ^ ^" =~ s/^/½/ --> ($ret)($line) $^X $__FILE__\n};
}
$line = " ";
$ret = $line !~ s/^/½/g;
if ($ret == 1) {
if ($line eq " ") {
print qq{ok - 8 " " !~ s/^/½/ --> ($ret)($line) $^X $__FILE__\n};
}
else {
print qq{not ok - 8 " " !~ s/^/½/ --> ($ret)($line) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 8 " " !~ s/^/½/ --> ($ret)($line) $^X $__FILE__\n};
}
$line = "^ ";
$ret = $line !~ s/^/½/g;
if (not $ret) {
if ($line eq "½ ") {
print qq{ok - 9 "^ " !~ s/^/½/ --> ($ret)($line) $^X $__FILE__\n};
}
else {
print qq{not ok - 9 "^ " !~ s/^/½/ --> ($ret)($line) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 9 "^ " !~ s/^/½/ --> ($ret)($line) $^X $__FILE__\n};
}
$line = "^ ^ ^";
$ret = $line !~ s/^/½/g;
if (not $ret) {
if ($line eq "½ ½ ½") {
print qq{ok - 10 "^ ^ ^" !~ s/^/½/ --> ($ret)($line) $^X $__FILE__\n};
}
else {
print qq{not ok - 10 "^ ^ ^" !~ s/^/½/ --> ($ret)($line) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 10 "^ ^ ^" !~ s/^/½/ --> ($ret)($line) $^X $__FILE__\n};
}
__END__
lÍõÍÄÈ > EFu§ì > perlÅu^vÌu·ªÅ«È¢ÌÅAÎû@³¦Ä¾³¢B
http://q.hatena.ne.jp/1222486577
samasuya ³ñÌ¿â
perlÅu^vÌu·ªÅ«È¢ÌÅAÎû@³¦Ä¾³¢B
WindowsXPÉCXg[µ½perl, v5.8.7ÅAu^vÌu·ðs¢½¢ÌÅ·ªA
Ⱥ©Å«Ü¹ñB»Ì¼Ì¶ÍÅ«Ü·B
\[XÅ·ªA
$line = "^`ceg";
$before = "^";
$after = "½";
$line =~ s/$before/$after/;
print $line;
Å·B
\[XÍASJISÅ¢ÄÜ·B
æ뵨袵ܷ