xt/UHC/336_tachitsuteto.t

# encoding: UHC
# This file is encoded in UHC.
die "This file is not encoded in UHC.\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
æëµ¨è¢µÜ·
	Global
`s`	Focus search bar
`?`	Bring up this help dialog
	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)
	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse
	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)