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 的值