Perlで Right関数に近い処理をさせたいのですが、何か良い方法は無いでしょうか？

Perlで Right関数に近い処理をさせたいのですが、何か良い方法は無いでしょうか？

No.2 ベストアンサー 回答者： tatsu99 回答日時： 2003/08/17 18:58

以下のような関数を作ってください

# Right 関数のエミュレート
sub Right
{
# $p1:入力文字列
# $p2:取得文字数
# $P1の右から$p2文字を取得する
my $p1 = shift;
my $p2 = shift;
my $result = substr($p1,-1*$p2);
}

使用例
$ret = Right("ABCDEFGHIJKL",3);
$retは"JKL"となります

No.3 回答者： natsuki_tk 回答日時： 2003/08/17 23:13

参考までに・・。

オフセットに負の値を指定することで同じことができます。

ex.
$line = 'mojiretsu';
$result = substr($line,-3); #右から三文字

#ただ、Perl5.0では対応していなかったかもしれません。
#以前、これではまったことが(^^；

No.1 回答者： GuruGuru22 回答日時： 2003/08/17 18:24

右から3文字だったら

print substr($str,length($str)-3);
てな感じで。