perl 语言学习总结

.#!/usr/bin/perl -w  内建警告信息，Perl发出警告
.字符串 . 连接符
.重复次数 "fred" x
.字符串与数字之间的自动转换
.$变量    赋值 $fred =;   +  += *=  .=  not and or xor
.print 输出
.比较字符  数值 == != < > <= >=
       字符串 eq ne lt gt le ge
. if($i < ){}else{}  while（）{}
.chomp  去除字符串尾的一个换行符
.数组 未初始化的数组值为undef
$#i表示最后一个元素的索引值   支持负数索引 最后一个为-1
.qw 简写，省掉列表中的  ， qw（   ）
.@ all of the  数组的全部
@rocks=qw/  /
@tiny = ( );
@gint = ..1e5
@ee = ‘qwwewe’
.pop和push  操作数组的最后一个元素  pop @array  push（@array,）
shift 和unshift  操作第一个元素
.foreach $rock(@rock){}
.$_老地方
.reverse（@fred） sort（@rock）
,。强制上下文 scalar @rock
.@lines = <STDIN>;
.子程序 sub关键字
eg：定义 sub fun{
        $n+=;
        print "hello";
        &n;//最后一次运算结果为返回值
    }
调用  &fun；  可以省略&号
print 语句的返回值为1，表示输出成功
函数参数：
$n = &max(,);
sub max{
    if($_[]>$_[]){
        $_[];
    }else{
        $_[];
    }
}

.my 定义私有词法变量    @_全局变量
my 不使用括号时，只用来声明单个词法变量
sub max{
    my($m,$n);
    ($m,$n) = @_;//将保存在@_中的参数赋值给具体变量
    if($m>$n){$m} else{$n}
}

if(@_ != )  元素个数小于2   ???

适应任意参数的max程序
sub max{
    my($myx_so_far) = shift @_;
    foreach(@_){
        if($_ >$max_so_far){
            $max_so_far = $_;
        }
    }
    $max_so_far;
}

对于空参数返回undef
所有新变量一开始都是空的，标量被设为undef，数组被设为空列表
.use strict 编译命令   让Perl更严格一些
要求一定要用my来声明每个新的变量
. return 子程序立即返回
. state  静态变量
.输入输出
while(defined($line=<STDIN>)){
    print "I saw $line";
}
<>钻石操作 从用户指定的位置读取。
while(<>){
    chomp;
    print "$_";
}
.@ARGV 命令行参数
.copy（"a","b"） 将a拷贝成b
.truncate (filename, length);
    将文件的长度减少到length字节。如果文件长度已经小于length，则不做任何事
.seek (file,dis，relative_to) 文件中移动  relative（ 开头, 当前,2末尾）
.print 文件写入字符串
.unlink （filelist） 删除文件
.open
    ：读：open(文件句柄，"<文件名")/open(文件句柄，"文件名")，前提文件必须已经存在，否则会返回0，出错信息在$!中。
    ：写：open(文件句柄，">文件名")，文件如果不存在，那么创建之，如果存在，内容被清空，长度截为0，$!中有出错信息。
    ：追加：open(文件句柄,">>文件名")，基本同写，但有一点，文件中的内容不会被清空，新的内容会追加到原文后面。
    ：读写：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);