mrwangwang的专栏

一、文件分割  #!/usr/bin/perl #此程序将一个大文本文件分成两个。 #以一个.txt结尾被分割文件作为参数。 #如果没有提供待分割文本，那么程序中止运行。 die if $#ARGV == -1; #输入文件以.txt结尾，输出文件替换.txt扩展名为.out1和.out2 $outfile1 = $ARGV[0]; $outfile2 = $ARGV[0]

在perl中，join()和split()的功能是相反的。 一.join函数  1.作用：把数组元素或者几个字符串通过分隔符连接成单个字符串  2.格式：join(DELIMITER，ARRAY或string[1,2,3...])  3.实例：#join $name="Tom"; $birth="01/02/86"; $addr="chengdu.sichuan"; $info=j

我们都知道用my可以来定义私有变量，这个可以在很多情况下防止错误的发生，下面我们通过一个例子来看一看。 下面是一个转换程序，也就是简单的把DNA序列中的A转变成T，第一种情况没有使用私有变量。如下： [plain] view plaincopyprint? #下面是一段DNA序列  $DNA=ATTATATAT;#这里是我们的序列  $result=A_to_T($D

-> 有两种用法，都和解引用有关。    第一种用法，就是解引用。  根据 -> 后面跟的符号的不同，解不同类型的引用，  ->[] 表示解数组引用，->{} 表示解散列引用，->() 表示解子程序引用。  例子：  $arr_ref = /@array;  $arr_ref->[0] 访问数组 @array 的第一个元素。  $hash_ref = /%hash;  $hash

perl中our的用法 require 5.006 当版本号小于 5.006 的时候，会返回失败，从而导致模块加载失败。 所以它的作用就是保证模块调用环境的 Perl 版本。 our 和 my 一样，都是对变量的声明， 不过 our 声明的是包全局变量， 而 my 声明的是词法变量。 不过，经过 our 声明的变量，它会变得像一个词法变量一样， 其实这也是 our 存在的目