改写代码

#!/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?