求婚示愛的Perl代碼之改寫篇
更新時(shí)間：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
代碼輸出
復(fù)制代碼 代碼如下:
ping, will you marry me?
相關(guān)文章
有關(guān)perl引用的相關(guān)知識(shí)，有需要的朋友可以參考下2013-02-02
在vim中添加perl注釋時(shí)無法對(duì)齊問題的解決方法
在使用vim編輯perl腳本時(shí)，每當(dāng)輸入#號(hào)時(shí)，#號(hào)都會(huì)跑到行首問題，需要的朋友可以參考下2013-02-02
在EditPlus中配置Perl開發(fā)編譯環(huán)境
這篇文章主要介紹了在EditPlus中配置Perl開發(fā)編譯環(huán)境,配置起來蠻簡單,適合小型開發(fā)環(huán)境,需要的朋友可以參考下2015-06-06
這篇文章主要介紹了Perl List::Util模塊使用實(shí)例,本文給出掃描符合條件的某個(gè)列表并取出第一個(gè)符合條件的、求1到1000之間的和 、求一組數(shù)字的最大值與最小值等實(shí)用功能代碼,需要的朋友可以參考下2015-06-06
perl的INC變量包含了所有perl module的查找路徑，可以使用perl -V 來查看INC的值2013-02-02
本文重點(diǎn)討論P(yáng)erl時(shí)間處理函數(shù)的概念,Perl能在絕大多數(shù)操作系統(tǒng)運(yùn)行,可以方便地向不同操作系統(tǒng)遷移,并且Perl借取了C、sed、awk、shellscripting以及很多其他程序語言的特性2017-09-09
有關(guān)perl文件操作的一些例子，供大家學(xué)習(xí)參考2013-02-02
Perl 和 StrawberryPerl 與 ActivePerl 的區(qū)別詳解
這篇文章主要介紹了Perl 和 StrawberryPerl 與 ActivePerl 的區(qū)別詳解,本文給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2020-12-12
這篇文章主要介紹了perl中使用signal(信號(hào))實(shí)例,本文講解了信號(hào)的相關(guān)知識(shí)以,并給出了perl代碼實(shí)例,需要的朋友可以參考下2015-05-05
下面小編就為大家?guī)硪黄狿erl與JS的對(duì)比分析(數(shù)組、哈希)。小編覺得挺不錯(cuò)的，現(xiàn)在就分享給大家，也給大家做個(gè)參考。一起跟隨小編過來看看吧2016-07-07