用浪漫方法写Perl代码改写篇
来源：爱站网时间：2020-09-23编辑：网友分享
之前小编给大家说了用浪漫方法写Perl代码的注释篇，那要怎么改写呢？带着问题，下面跟随爱站技术频道小编来了解了解吧！
之前小编给大家说了用浪漫方法写Perl代码的注释篇，那要怎么改写呢？带着问题，下面跟随爱站技术频道小编来了解了解吧！
改写代码
#!/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代码注释篇、改写篇，小编就分享到这里了，如果你还有更好的浪漫代码，可以联系小编帮你分享出去哦！
上一篇：浅谈Perl处理字符串备忘录步骤
下一篇：用浪漫方法写Perl代码注释篇
