求婚示爱的Perl代码之改写篇
更新时间：2013年03月01日 11:35:11 作者：
求婚示爱的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引用的相关知识，有需要的朋友可以参考下2013-02-02
在使用vim编辑perl脚本时，每当输入#号时，#号都会跑到行首问题，需要的朋友可以参考下2013-02-02
这篇文章主要介绍了在EditPlus中配置Perl开发编译环境,配置起来蛮简单,适合小型开发环境,需要的朋友可以参考下2015-06-06
这篇文章主要介绍了Perl List::Util模块使用实例,本文给出扫描符合条件的某个列表并取出第一个符合条件的、求1到1000之间的和 、求一组数字的最大值与最小值等实用功能代码,需要的朋友可以参考下2015-06-06
perl的INC变量包含了所有perl module的查找路径，可以使用perl -V 来查看INC的值2013-02-02
本文重点讨论Perl时间处理函数的概念,Perl能在绝大多数操作系统运行,可以方便地向不同操作系统迁移,并且Perl借取了C、sed、awk、shellscripting以及很多其他程序语言的特性2017-09-09
有关perl文件操作的一些例子，供大家学习参考2013-02-02
Perl 和 StrawberryPerl 与 ActivePerl 的区别详解
这篇文章主要介绍了Perl 和 StrawberryPerl 与 ActivePerl 的区别详解,本文给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值，需要的朋友可以参考下2020-12-12
这篇文章主要介绍了perl中使用signal(信号)实例,本文讲解了信号的相关知识以,并给出了perl代码实例,需要的朋友可以参考下2015-05-05
下面小编就为大家带来一篇Perl与JS的对比分析(数组、哈希)。小编觉得挺不错的，现在就分享给大家，也给大家做个参考。一起跟随小编过来看看吧2016-07-07
最新评论