| 75 |
$v = $tag . q[<span class=ja-translation lang=ja>] . |
$v = $tag . q[<span class=ja-translation lang=ja>] . |
| 76 |
replace_pattern2 ($pattern{$pattern}, $1, $2, $3, $4, $5) . |
replace_pattern2 ($pattern{$pattern}, $1, $2, $3, $4, $5) . |
| 77 |
q[</span>]; |
q[</span>]; |
| 78 |
|
last; |
| 79 |
} |
} |
| 80 |
} |
} |
| 81 |
$v; |
$v; |
| 92 |
} |
} |
| 93 |
}ges; |
}ges; |
| 94 |
|
|
| 95 |
$source_text =~ s{\[\[([A-Z]+):([^]]+)\]\]} |
$source_text =~ s{\[\[([A-Z ]+):([^]]+)\]\]} |
| 96 |
{<em class=rfc2119 title="$1">$2</em>}gs; |
{<em class=rfc2119 title="$1">$2</em>}gs; |
| 97 |
|
|
| 98 |
#$source_text =~ s[<title>][<base href="http://www.whatwg.org/specs/web-apps/current-work/"><title>]; |
#$source_text =~ s[<title>][<base href="http://www.whatwg.org/specs/web-apps/current-work/"><title>]; |