广州明生医药有限公司


求婚示爱的Perl代码之改写篇

网络编程 求婚示爱的Perl代码之改写篇 06-21

改写代码

#!/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 读取所需文件的路径,然后打开相应的文件
以下是DNA序列,存储在window下F:perldata.txt里面:AAAAAAAAAAAAAAGGGGGGGTTTTCCCCCCCCCCCCCGTCGTAGTAAAGTATGCAGTAGCVGCCCCCCCCCCGGGGGGGGAAAAAAAAAAAAAAATTTTTTATAAACG下面是程序:#下面

perl中尖括号运算符(<>)使用说明
perl中运算符可以有如下的用途:1)如果尖括号中间是文件句柄,尖括号运算符允许你读取文件句柄,比如STDIN。2)如果尖括号中间是搜索模式,尖括号运

perl运算符使用介绍与简单应用
perl5基础教程——运算符一、算术运算符:+(加)、-(减)、*(乘)、/(除)、**(乘幂)、%(取余)、-(单目负)(1)乘幂的基数不能为负,如(-5)**2.5#error;(2)乘幂结果


编辑:广州明生医药有限公司

标签:尖括号,乘幂,运算符,文件,句柄