[ 登录注册 ]

Perl

Perl中倒序字符串或列表

2016/07/21 10:00 [db:作者] 返回上一页

【引自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($_),$_
}
  
$i为一个匿名过程引用,能够给出参数字符串长度减1的值。
  
第二个语句给默认变量$_赋初值,仍旧是"Just another Perl hacker.\n"的倒序。

下面的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
【责任编辑:火凤凰 TEL:(010)68476606】


文章来源:http://www.bozhiyue.com/perl/2016/0721/285955.html
评论
发表评论