my 只在此子程序中有效，local 在子程序及此子程序所调用的子程序中有效

local ($localVar) =43;
my ($my_var)="abc";

3、用别名的方法可以传递多个数组，如：

@array1 = (1, 2, 3);
@array2 = (4, 5, 6);
&two_array_sub (*array1, *array2);
sub two_array_sub {
  my (*subarray1, *subarray2) = @_;
}   

缺省地，open打开文件用以读取其内容，若想打开文件以写入内容，则在文件名前加个
大于号：open(MYVAR, ">/u/file",)向已有的文件末尾添加内容用两个大于号

open (STDOUT, ">file1") || die ("open STDOUT failed");
open (STDERR, ">&STDOUT") || die ("open STDERR failed");
print STDOUT ("line 1\n");
print STDERR ("line 2\n");
close (STDOUT);
close (STDERR); 

open (a, ">file1") || die ("open STDOUT failed");
open (b, ">&a") || die ("open STDERR failed");
print a ("line 1\n");
print b ("line 2\n");
close (a);
close (b); 

把值1赋给系统变量"$|"
系统变量"$|"指定文件是否进行缓冲而不管其是否应该使用缓冲。
如果$|为非零值则不使用缓冲。$|与系统变量\(~和\)^协同工作，当未调用select函
数时，$|影响当前缺省文件

 open (STDOUT, ">file1") || die ("open STDOUT failed");
 open (STDERR, ">&STDOUT") || die ("open STDERR failed");
 $| = 1; # 因未调用select（），当前的缺省文件为重定向到文件file1的STDOUT ,
# 此将$|=1 , 意为stdout不用缓冲区

 select (STDERR);
 $| = 1;

 print STDOUT ("line 1\n");
 print STDERR ("line 2\n");
 close (STDOUT);
 close (STDERR); 

打开一个既可读又可写的文件方法是在文件名前加上"+>"，如下：
open (READWRITE, "+>file1");
此语句打开既可读又可写的文件file1，即可以重写其中的内容。文件读写操作最好与库函数seek和tell一起使用，这样可以跳到文件任何一点。
注：也可用前缀"+<"指定可读写权限

用于关闭打开的文件。当用close关闭管道，即重定向的命令时，程序等待重定向的命令结束，如：
open (MYPIPE, "cat file*|");
close (MYPIPE);

print是这三个函数中最简单的，它向指定的文件输出，如果未指定，则输出到当前缺省文件中，如：
print ("Hello, there!\n");
print OUTFILE ("Hello, there!\n");
第一句输出到当前缺省文件中，若未调用select，则为STDOUT。第二句输出到由文件变量OUTFILE指定的文件中。
printf函数先格式化字符串再输出到指定文件或当前缺省文件中，如：
printf OUTFILE (“You owe me %8.2f", $owing);
此语句取出变量$owing的值并替换掉串中的%8.2f，%8.2f是域格式的例子，把$owing的值看作浮点数。
write函数使用输出格式把信息输出到文件中，如：
select (OUTFILE);
$~ = "MYFORMAT";
write;

select函数将通过参数传递的文件变量指定为新的当前缺省文件，如：
select (MYFILE);

eof函数查看最后一次读文件操作是否为文件最后一个记录，如果是，则返回非零
值，如果文件还有内容，返回零。一般情况下，对eof的调用不加括号，因为eof和
eof()是等效的，但与<>操作符一起使用时，eof和eof()就不同了。现在我们来创
建两个文件，分别叫做file1和file2。file1的内容为

while ($line = <STDIN>) {
   print ($line);
   if (eof) {
     print ("-- end of current file --\n");
   }
 }

while ($line = <STDIN>) {
   print ($line);
   if (eof()) {
     print ("-- end of current file --\n");
   }
 } 

如此运行上面两程序:

root@localhost$>   test.pl file1 file2

只有所有文件都读过了，eof()才返回真，如果只是多个文件中前几个的末尾，返回值为假，因为还有要读取的输入

可以用简单变量来代替文件变量，这时，简单变量中所存贮的字符串就被看作文件变量名

&open_file("INFILE", "", "file1");
&open_file("OUTFILE", ">", "file2");
while ($line = &read_from_file("INFILE")) {
  &print_to_file("OUTFILE", $line);
}

sub open_file {
   local ($filevar, $filemode, $filename) = @_;

   open ($filevar, $filemode . $filename) ||
     die ("Can't open $filename");
 }
 sub read_from_file {
   local ($filevar) = @_;

   <$filevar>;
 }
 sub print_to_file {
   local ($filevar, $line) = @_;

   print $filevar ($line);
 } 

解说 read函数设计得与UNIX的fread函数等效，可以读取任意长度的字符（字节）存入一个简单变量。其参数有四个：

• 1、filevar：文件变量
  
• 2、result：存贮结果的简单变量（或数组元素）
  
• 3、length：读取的字节数
  
• 4、skipval：可选项，指定读文件之前跳过的字节数。 返回值为实际读取的字
  节数，如果已到了文件末尾，则返回零，如果出错，则返回空串。
  

更快的读取数据，与UNIX函数read等效，参数与read相同

更快的写入数据，与UNIX函数write等效，参数：

• 1、filevar：将要写入的文件
  
• 2、data：存贮要写入数据的变量
  
• 3、length：要写入的字节数
  
• 4、skipval写操作之前跳过的字节数。
  

当你的系统（如类DOS系统）对文本文件和二进制文件有所区别时使用。必须在打
开文件后、读取文件前使用

1、dirname：将要创建的目录名，可以为字符串或表达式
2、permissions：8进制数，指定目录的访问权限，其值和意义见下表，权限的组
合方法为将相应的值相加
值 | 权限 |
4000 | 运行时设置用户ID |
2000 | 运行时设置组ID |
1000 | 粘贴位 |
0400 | 拥有者读权限 |
0200 | 拥有者写权限 |
0100 | 拥有者执行权限 |
0040 | 组读权限 |
0020 | 组写权限 |
0010 | 组执行权限 |
0004 | 所有人读权限 |
0002 | 所有人写权限 |
0001 | 所有人执行权限 |

开目录，与下面几个函数合用，可查看某目录中文件列表。参数为：
、dirvar：目录变量，与文件变量类似
、dirname：目录名，可为字符串或表达式
功返回真值，失败返回假。
：程序中可用同名的目录变量和文件变量，根据环境确定取成分

opendir (tmpdir, "/tmp/") ||print "die";
@fs=readdir (tmpdir);
foreach my $f ( @fs){
    print $f ,"\n" ;    
}

给简单变量时，每次赋予一个文件或子目录名，对数组则赋予全部文件和子目录名

象在文件中前后移动一样，telldir和下面的seekdir用于在目录列表中前后移动

location必须为telldir返回的值

将读取目录的位置重置回开头，从而可以重读目录列表

删除空目录。成功则返回真（非零值），失败返回假（零值）

删除文件。参数为文件名列表，返回值为实际删除的文件数目。此函数之所以叫
nlink而不叫delete是因为它实际所做的是删除文件的链接

创建现有文件的链接–硬链接，file是被链接的文件，newlink是被创建的链接。
功返回真，失败返回假。当删除这两个链接中的一个时，还可以用另一个来访问该文
。

建现有文件的符号链接，即指向文件名，而不是指向文件本身。参数和返回值同上。
原文件被删除（如：被unlinke函数删除），则被创建链接不可用，除非再创建一个与原被链接的文件同名的文件。

如果linkname为符号链接文件，返回其实际指向的文件。否则返回空串

改变文件的访问权限。参数为：
、permissions为将要设置的权限，其含义见上述mkdir中权限表
、filelist为欲改变权限的文件列表

设置文件访问权限掩码，返回值为当前掩码。

将文件的长度减少到length字节。如果文件长度已经小于length，则不做任何事。
其中filename可以为文件名，也可以为文件变量

获取文件状态。参数file可为文件名也可为文件变量。返回列表元素依次为：

• 文件所在设备
  
• 内部参考号(inode)
  
• 访问权限
  
• 硬链接数
  
• 属主的(数字)ID
  
• 所属组的(数字)ID
  
• 设备类型（如果file是设备的话）
  
• 文件大小（字节数）
  
• 最后访问时间
  
• 最后修改时间
  
• 最后改变状态时间
  
• I/O操作最佳块大小
  
• 分配给该文件的块数
  

返回从1970年1月1日起累计秒数。

将由time, stat 或 -A 和 -M 文件测试操作符返回的时间转换成格林威治时间。返回列表元素依次为：

• 秒
  
• 分钟
  
• 小时，0~23
  
• 日期
  
• 月份，0~11(一月~十二月)
  
• 年份
  
• 星期，0~6(周日~周六)
  
• 一年中的日期，0~364
  
• 是否夏令时的标志
  

变文件的最后访问时间和最后更改时间。例如：

acctime = -A "file1";
modtime = -M "file1";
filelist = ("file2", "file3");
time ($acctime, $modtime, @filelist);

flock (filevar, flockop);

$x="abc.txt";
if(-e $x) { #abc.txt是否存在？
    　　# 存在操作
} else {
    　　printf "文件不存在。\n";
}

-r 文件或目录可读
-w 文件或目录可写
-x 文件或目录执行
-o 文件或目录归用户所有
-R 文件或目录对真正用户可读
-W 文件或目录对真正用户可写
-X 文件或目录对真正用户执行
-O 文件或目录归真正用户所有
-e 文件或目录存在
-z 文件存在且大小为0
-s 文件或目录存在且不为0(返回字节数)
-f 文件为普通文件
-d 文件为目录
-l 文件为符号链接
-p 文件为命名管道(FIFO)
-S 文件为一个套口(socket)
-b 文件为块特殊文件
-c 文件为字符特殊文件
-t 打开tty控制台的文件句柄
-u 文件或目录是设置用户ID号
-g 文件或目录是设置用户组ID号
-k 文件或目录的sticky位置位
-T 文件是文本文件
-B 文件是二进制文件
-M 以天为单位的存在时间
-A 以天为单位访问时间
-C 以天为单位同代码更改时间

反斜线操作符与C语言中传递地址的操作符&功能类似。一般是用\创建变量又一个
新的引用。下面为创建简单变量的引用的例子

  $var="abc";
 $pointer=\$var;
 print($$pointer);

@array = ("a","b","c");
$p =\@array;
print(@$p);

%map=("a","aaa","b","bbbe");
$p=\%map;
print(%$p);

$pointer_tosub = sub {… declaration of sub …};
调用方法
&$pointer_tosub(param)

q~~是对对'号转义的方式而提倡用的，，这样写的时候就可以不用\'
qq~~是对对"号转义的方式而提倡用的，这样写的时候就可以不用\"

qw{foo bar}的意思为用空格分解字符串，得到列表，相当于如下语句
split(' ','foo bar') 得到的结果是'foo','bar'

@list = ("perl","Regular","network","web");
#可以等价于:
@list = qw(perl Regular network web);
@list = qw{perl Regular network web};

$& 用来存放匹配的值
$` 用来存放匹配内容之前的串
$' 用来存放匹配内容之后的串

$var ="beforehelloafter";
$var =~ /h(el)lo/ ;
print ($& ,"\n"); # print  "hello"
print ($`, "\n"); # print "before"
print ($', "\n"); # print 'after'
print ($1, "\n"); # print "el"

$_ is known as the "default input and pattern matching space". In other words, if you read in
from a file handle at the top of a while loop, or run a foreach loop and don't name a loop
variable, $_ is set up for you. Then any regular expression matches, chops (and lcs and many
more) without a parameter, and even prints assume you want to work on $_. 就是说如果从一个文件用
while 或foreach 读取一行内容， 而你没用一个变量存变读取到的这一行，那么，默认把它放到$_ 变量中。
不仅如此，任何像match chos print 等操作的函数，默认以它作参数，如果你没指定的话因此

open(file , "/tmp/b.pl");
while($line = <file>){
    print ( "当前是第" , $. , "行,内容是:", $line,"\n"); 
}

open(file , "/tmp/b.pl");
while( <file>){
 print ( "当前是第" , $. , "行,内容是:", $_,"\n"); 
}

两段代码等价

再给一个例子

open(file , "/tmp/b.pl");
while( <file>){
    print ; 
}

如果是表达式：
第一个操作数（“..“左侧的表达式）将被求值，如果得出的值为假，此次操作将什么也不做并
返回假值。
如果得出的值为真，操作返回真值并继续依次返回下面的值直到第二个操作数（“..”操作符右面
的表达式）返回真值 .注意到 “直到” 这两个字没有

也就是说可以把它用作if 后的括号中做真假判断
比如java 中的代码注释以 /* 为开头 */为结束
我现在想取出这种代码中的这种注释。
我可以把判断 当前行中包不包括 * 作为第一个操作数，而把判断当前行包不包括* 作为第二个操作数
就是说，如果遇到/* 就满足了if 条件，开始作if 里的操作，做完一次操作就判断一下第二个操作数满不满
足，如果满足的话，停止，否则，继续

open(FILE,"/tmp/a.java");
while (<FILE>) {
    if  ( m!/\*! .. m!\*/!){
        print  $_ ;
     }
}