手机
当前位置:查字典教程网 >脚本专栏 >perl >求婚示爱的Perl代码之改写篇
求婚示爱的Perl代码之改写篇
摘要:改写代码#!/usr/bin/perl-wusestrict;my$f=$[;my$ch=0;subl{length}subr{join""...

改写代码

#!/usr/bin/perl -w

use strict;

my$f= $[;my

$ch=0;sub l{length}

sub r{join"", reverse split

("",$_[$[])}sub ss{substr($_[0]

,$_[1],$_[2])}sub be{$_=$_[0];p

(ss($_,$f,1));$f+=l()/2;$f%=l

();$f++if$ch%2;$ch++}my$q=r

("ntfgpfdfal,ce?bngbjn".

"axfvxf"); $_=$q; $q=~

tr/f[a-z]/ [l-za-k]

/;my@ever=1..&l

;my$mine=$q

;sub p{

print

@_;

}

be $mine for @ever

代码输出

复制代码 代码如下:ping, will you marry me?

【求婚示爱的Perl代码之改写篇】相关文章:

用python下载百度文库的代码

fdupe 查找重复文件的Perl脚本代码

perl 文件读写详细说明

Perl 哈希Hash用法之入门教程

分享下perl胶水实现前后台对接的方法

perl数组的多数字下标示例代码

只有一行的Perl程序第1/3页

perl批量查询ip归属地的方法代码

perl的logwrapper使用实例代码

Perl模块编写说明

精品推荐
分类导航