文字列の反転 in Perl DouKaku?

文字列の反転

与えられた文字列sを前後逆転したものを返す関数reverse_stringを作成してください。ただし、sはShift-JISでエンコードされている文字列だと仮定して構いません。

サンプル入出力

>>> print reverse_string("Hello")
olleH
>>> print reverse_string("こんにちは")
はちにんこ
>>> print reverse_string("濁点(だくてん)")
)んてくだ(点濁

Wide character in printっていわれる

use Encode;
sub reverse_string {
  return join '', reverse split //, decode('shiftjis',$_[0]);
}

utf8でやるとバグらないっぽです。

use Encode;
use utf8;

sub reverse_string {
  return encode('utf8',scalar reverse $_[0]);
}

print reverse_string("こんにちは");