perl基础（1）

    今天开始学习perl，一点笔记。

 

     print ""--------打印字符串，字符串格式和C差不多，不过变量的值用$var得到

 

    open(handle,"<filename")----------打开一个文件，handle是打开文件后的句柄，filename及文件名，<是文件打开方式，读，写，添加三种方式，分别是<,>,>>，失败返回1，成功返回0，所以可以用下面的语句来打开文件：

1.       if(open(handle,"<name"))    
2.           { fail to do};               
3. or    unless(open(handle,"<name"))    
4.           {fail to do}    
5. or    open(handle,"<name")||die("open file fail");

     $line=<handle>-----------读文件，读一行到line中，文件指针后移，包括回车符

 

     @array=<handle>---------读文件，所有的内容到array中，且一行为array的一个元素，包括回车符

 

     defined(val)---------------判断val是否为空，如果空则返回0.非空返回1

 

    chomp($val)---------------判断val最后一个字符是不是回车，如果是，则去掉回车

 

    chop($val)-----------------去掉val的最后一个字符

 

    sub  name------------------定义子函数，用&name调用

 

    print handle string---------向handle中写数据

 

注意：

    1.    perl中字符串不一定以NULL，而且NULL可以出现在字符串中

    2.    while，for，if都可以使用，但是else为elsif。

    3.    文件打开之后要关闭