400-1100-266
9:00-24:00(工作日)
改寫代碼
#!/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
代碼輸出
標(biāo)簽:長沙 山西 安康 崇左 山西 濟(jì)南 海南 喀什
上一篇:求婚示愛的Perl代碼之注釋篇
下一篇:perl 讀取所需文件的路徑,然后打開相應(yīng)的文件
Copyright ? 1999-2012 誠信 合法 規(guī)范的巨人網(wǎng)絡(luò) m.wpzone.cn 始建于2005年
全國網(wǎng)站建設(shè)網(wǎng)站開發(fā)咨詢熱線:400-1100-266?? 0514-86177077
江蘇揚(yáng)州巨人網(wǎng)絡(luò)科技有限公司 ??總部地址:江蘇省揚(yáng)州信息產(chǎn)業(yè)基地11號樓4層
《增值電信業(yè)務(wù)經(jīng)營許可證》蘇B2-20120278 ?? 蘇ICP備15040257號 網(wǎng)站地圖