テスト

[0306 デフォルトの名無しさん 2020/01/11(土) 13:07:42.03 ID:JM9/51Sk]

use feature qw{say signatures};
sub rev($s) {
$s ne '' and subtr ($s, -1, 1, '') . rev($s);
}
say rev('string');