- 157 名前：名無しさん＠Ｍｅａｄｏｗ mailto:sage [03/04/30 14:53]
- >>155
jperlじゃないとだめですね。perl用もかきますた。
($var='駄スレ立てんな。') =~ s/立(.+)。/たつ$1/;
while ($var) {
if ($var =~ s/^[\xA1-\xFE][\xA1-\xFE]// or $var =~ s/^.//) {
push(@str, $&);
$var = $';
}
}
print reverse(@str), "\n";
