Perl reference （draft）

按行读文件存入array

在Perl中可以用open或者sysopen函数来打开文件进行操作，这两个函数都需要通过一个文件句柄（即文件指针）来对文件进行读写定位等操作。
下面以open函数为例：
1：读：open(文件句柄，"<文件名")/open(文件句柄，"文件名")，前提文件必须已经存在，否则会返回0，出错信息在$!中。
2：写：open(文件句柄，">文件名")，文件如果不存在，那么创建之，如果存在，内容被清空，长度截为0，$!中有出错信息。
3：追加：open(文件句柄,">>文件名")，基本同写，但有一点，文件中的内容不会被清空，新的内容会追加到原文后面。
4：读写：open(文件句柄,"+<文件名")，通过“+<”模式，你可以既可以读文件，又可以写文件。你可以通过tell() 函数在文件内部移动，通过seek()函数进行定位。如果文件不存在，就会被创建。如果文件已经存在，原来的数据不会被清除。
   open(文件句柄,"+>文件名")，通过“+》”模式，可以同时读写文件，但与上面不同的是，它是破怀性写，会清除原来的内容。
例子：
my $conf = "D:/test.txt";

if(-e $conf) #判断文件是否存在
{
    open(FILE, "<$conf") or die("No such file");

    while($LINE = <FILE>)         #读取文件
    {
        print $LINE;
        push(@del,$LINE);
    }
    close(FILE);

Perl如何跳出for循环和while循环，就像C语言的break函数一样？

next和last操作符允许在循环中改变程序来执行的方向，next允许跳至本次循环的结束位置，开自始下一个循环。百last允许跳至整个循环的结束，和循环条件表达式为假的度情况相同。
也就是last相当于break next相当于continue

Perl学习笔记数组/散列(哈希) 非常详细例子多

https://www.bioinfo-scrounger.com/archives/351/

超详细数组操作教程，讲得很好，例子全，表全，强推

https://silencezgf.gitbooks.io/blogs/content/perl/perl-shu-ju-lei-578b-shu-zu-bian-liang.html

Perl函数返回值用法指导例子好

https://www.cnblogs.com/njczy2010/p/5555231.html