perl网络编程学习笔记(一)

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

第一章输入与输出

1.3.1 标准文件句柄

3个：STDOUT, STDIN和STDERR

1.3.2 输入和输出操作

"<>"运算符的介绍：
$line=<FILEHANDLE> @lines=<FILEHANDLE> $line=<> @lines=<>
“<>”运算符用于以面向行的模式从文件句柄读数据。
“<>”如果用在标量上下文中，它将从指定的文件句柄中读取一行文本，返回数值以及行尾终结符，读取最后一行时，将返回undef。

“<>”如果被用来给数组分配值或用在另一个通常被perl当作列表的地方时，它将从文件句柄中读取EOF前的所有行，并将其当作一个列表(潜在很巨大)返回。

“<>”如果被用在空上下文，即没有给变量分配值，则它将一行文本拷贝到$_全局变量中。

read()和sysread()的介绍：
$bytes=read(FILEHANDLE, $buffer, $length [, $offset])
$bytes=sysread(FILEHANDLE，$buffer，$length [, $offset])
read()或sysread()以字节流的模式读数据。
read()函数和sysread()函数从指定的文件句柄中读取任意长度的数据，读取的数据长度可以达$length字节，所读的数据被置于标量$ buffer中，两个函数都返回实际读取的字节数，如果是文件尾则返回数字，或者在发生错误时返回undef。默认所读取得数据被放在$buffer的开头部分,可以通过指定$offset来改变数据写入$buffer时的位置。

read()使用标准I/O缓冲，而sysread()不用标准I/O缓冲。

print()和syswrite()函数的介绍：
$result=print FILEHANDLE $data1，$data2，$data3...
$result=print $data1,$data2,$data3...
print()函数将一列数据项写入文件句柄。如果没有$data1参数项，print()写$_的内容。如果成功，返回true，失败返回false并写错误消息到$!中。

$bytes=syswrite(FILEHANDLE, $data [,$length [, $offset]])
syswrite()从$offset指定的位置开始从$data中读取$length字节然后写入FILEHANDLE。

print()使用标准I/O缓冲，syswrite()不使用标准I/O缓冲。

1.3.4 检测文件尾。

read()或sysread()函数，发生EOF条件时返回数值0，其他I/O错误返回undef 并将错误消息写入$!。

<>运算符不管是EOF还是异常条件，都返回undef。

1.3.5 打开和关闭文件。

$success = open(FILEHANDLE, $path)
$success = open(FILEHANDLE, $mode, $path)

打开成功返回true，失败返回false。

$success = close(FH)

复制文件句柄：

>& 复制用于写的文件句柄, <&复制用于读的文件句柄。
open (OUTCOPY, ">&STDOUT")
open (INCOPY, "<&STDOUT")
1.3.7 标准I/O缓冲。

<>、read()、print()使用stdio，有独立于操作系统的缓冲区。

sysread()、syswrite()直接操作操作系统的I/O，很多网络应用程序使用它们。

为文件句柄FH打开autoflush模式, autoflush模式只用于输出操作，每次调用print()时perl都告诉stdio将文件句柄的缓冲区中的内容送出。

my $previous=select(FH);
$| = 1;
select($previous);

或者写为： select ((select(FH),($|=1)[0])

1.3.8 传递和存储文件句柄。

移动文件句柄的方法是作为typeglob或typeglob引用(typeglob reference)移动。

将一个文件句柄转换为一个glob: $fh=*MY_FH；
将一个文件句柄转换为一个typeglob引用：$fh=\* MY_FH；

检查一个文件句柄是否有效： $integer=fileno(FILEHANDLE)，fileno返回相应描述符。STDIN->0，STDOUT->1， STDERR->2，关闭重新打开会改变描述符。其他文件句柄为大于3的描述符，如果文件句柄无效则返回undef。

die "not a filehandle" unless defined fileno($fh);

1.3.9 错误检测

1.4.1 对象和引用

引用是指向数据结构的指针，可以使用反斜杠运算符创建已存在的数据结构的引用。$a = 'hi there'; $a_ref = \$a;
对象也是一个引用。

1.4.2 IO::Handle模块和IO::File模块

$fh = IO:File->new($filename [, $mode[, $perms] ])
$fh = IO:File->new_tmpfile 创建一个临时文件
$result = $fh->close
$result = $fh->open($filename [, $mode [, $perms ] ]) 主要用于重新打开标准文件句柄

$result = $fh->print(@args)
$result = $fh->printf($fmt, @args)

$bytes = $fh->write($data [, $length [, $offset] ])
$bytes = $fh->syswrite($data [, $length [, $offset ] ])

$line = $fh->getline 均读取一行，对标量上下文和列表上下文行为一样
@lines = $fh->getlines 在列表上下文中和<>行为一样
$bytes = $fh->read($buffer, $length [, $offset ] )
$bytes = $fh->sysread($buffer, $length [, $offset] )

$previous = $fh->autoflush( [$boolean] )

$boolean = $fh->opened 如果文件句柄对象有效则true，等价于 defined fileno($fh);

$boolean = $fh->eof 如果下次对文件句柄对象的读取将返回EOF，则该方法返回true。 ???

$fh->flush 涌出缓冲区中的内容，如果用于读，则丢弃缓冲区中的任意数据。

$boolean=$fh->block([$boolean]) 打开或关闭阻塞模式。???

$fh->clearerr
$boolean=$fh->error

$fh=IO::File->new_from_fd($fd, $mode) 使用$mode给出的读/写模式打开一个由$fd指定的文件句柄对象的拷贝。