如何在Perl中反转一串数字？

Question

我有一个包含数值的字符串.我想以相反的顺序显示数值.

一个不起作用的想法是使用内置的反向功能:

my $j = "12,11,10,9";
my $k = reverse($j);
print $k;

但该代码输出:

9,01,11,21

我们想要的时候:

9,10,11,12

Answer 1

简洁版:

my $j = "12,11,10,9";
print join ",", reverse split /,/, $j;

括号版本:

my $j = "12,11,10,9";
print(join(",", reverse(split(/,/, $j))));

如果我稍微分解一下:

my $j = "12,11,10,9";
my @j = split /,/, $j;
print join ",", reverse @j;

OUTPUT

9,10,11,12

注意

• 看到 perldoc -f reverse