Perl中倒序字符串或列表

【引自Orange的博客】Perl被设计成90%擅长处理文本，10%处理其余的问题。因此Perl有强大的文本处理能力，包括正则表达式和方便的字符串处理函数。

用unpakc倒序字符串的方法：

perl -e '$i=sub{length($_[0])-1};$_= "\n.rekcah lreP rehtona tsuJ" ;

while(&$i($_)){print unpack "x".&$i($_)."a1", $_ ;$_=unpack"a".&$i($_),$_}print' 

将其重新排列为一下格式：

$i=sub{
length($_[0])-1
};
$_= "\n.rekcah lreP rehtona tsuJ" ;
while(&$i($_)){
print unpack "x".&$i($_)."a1", $_ ;
$_=unpack "a".&$i($_),$_
}

下面的while循环是核心内容，该循环直到$_的内容为空才会停止。循环中用unpack取得$_的最后一个字符并打印出来，然后再从$_中剔除这个字符，如此反复就达到了把原字符串倒序输出的目的。

下面简单说一下这里unpack的用法，unpack格式串中x表示跳过该位置的内容，a表示将该位置的内容解释为标准ASCII字符（串），因此如果有unpack "x10a1",$_就表示跳过$_的前10个字符，返回第11个字符；同样unpack "a10",$_表示返回前10个字符。配合使用格式字符x和a就能达到将原内容从最后一个字符处拆分的目的。

unpack和pack是一组很有用的对应函数，在对各种数据的底层操作中得到广泛使用，灵活掌握它们的用法会带来很大好处。对它们更详细的解释可以参见perlfunc手册页。

用substr倒序字符串的方法：

len=length(str);
for(i=count;i>0;i--) {
marry[i] = substr(str,int(rand() * len),1); }
for(i=count;i>0;i--) {
printf("%c",marry[i]); 
}
printf("\n");
for(i=0;i<=count;i++){
printf("%c",marry[i]);  }

用reverse倒序列表的方法：

reverse（逆转）操作将输入的一串列表（可能是数组）按相反的顺序返回。如果不喜欢范围操作符： ．．，只能从小到大，那可以使用reverse 来解决这个问题：

@fred = 6 ．．10;
@barney = reverse (@fred);  #得到10，9，8，7，6
@wilma = reverse 6 ．．10;  #同上，没有使用额外的数组
@fred = reverse @fred;      #将逆转过的字符串存回去

注意最后一行，其中@fred 使用了2 次。Perl 通常先计算变量的值（赋值号右边），再进行赋值。注意reverse 返回逆转的列表，它不会改变其参数的值。如果返回值没有赋值给某个变量，那这个操作是没有什么意义的：

reverse @fred;  #错误，没有改变@fred 的值
@fred = reverse @fred;  #改变了@fred 的值

【相关文章】

• 让Perl成为你的嵌入式开发工具

• 用PERL实现一个简单的NIDS

• Perl内嵌Html