求婚示愛的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
代碼輸出
相關(guān)文章
Perl字符串處理學(xué)習(xí)備忘錄，包括chop和chomp函數(shù)、getc函數(shù)、拼接字符串、分割字符串、重復(fù)拼接字符串、字串替換等。有需要的朋友，可以參考下2013-02-02
一個(gè)perl擴(kuò)展正則表達(dá)式代碼分析
今天傍晚回來翻了翻perlre文檔,基本算是看懂,趕緊記錄下來2013-02-02
強(qiáng)大的Perl正則表達(dá)式實(shí)例詳解
正則表達(dá)式是Perl語(yǔ)言的特色，基本的語(yǔ)法不是很難，但是編寫一個(gè)符合需求、高效的正則表達(dá)式，還是有一些挑戰(zhàn)的。下面這篇文章主要給大家介紹了關(guān)于強(qiáng)大的Perl正則表達(dá)式的相關(guān)資料，需要的朋友可以參考借鑒，下面來一起看看吧。2017-11-11
perl產(chǎn)生隨機(jī)數(shù)實(shí)現(xiàn)代碼
Perl利用函數(shù)rand()和srand()為隨機(jī)數(shù)（更確切的說是“偽隨機(jī)數(shù)”）字符串的生成提供了基本的工具2013-02-02
Perl中的符號(hào) ->;、=>; 和 :: 分別表示什么意思？
這篇文章主要介紹了Perl中的符號(hào) ->;、=>; 和 :: 分別表示什么意思,需要的朋友可以參考下2017-10-10
壁紙來自桌酷網(wǎng)站,所有權(quán)歸屬其網(wǎng)站，本代碼僅做為交流學(xué)習(xí)使用，請(qǐng)勿用于商業(yè)用途，否則后果自負(fù)2012-08-08
使用Perl創(chuàng)建指定編碼格式(如utf-8)文件的實(shí)現(xiàn)代碼
當(dāng)Perl讀入的源文件是Unicode的utf-8格式時(shí)，在使用Perl處理并輸出到一個(gè)新文件以后，編碼格式會(huì)自動(dòng)發(fā)生變化2013-02-02
怎么用perl程序，隨機(jī)生成一條序列，使ACGT四種堿基的含量分別為0.3，0.3，0.2，0.2！2013-03-03
這篇文章主要介紹了perl 采集入庫(kù)腳本分享,本文是以前自己用的腳本,使用的Mysql數(shù)據(jù)庫(kù),需要的朋友可以參考下2014-09-09
perl中chomp的使用介紹(chop和chomp函數(shù)區(qū)別)
perl程序中，有時(shí)在輸入過程中使用chomp才會(huì)得到正確的結(jié)果2013-02-02