perl read函数详解

read()函数主要用来从文件句柄读取若干长度的字节数据到一个变量当中。用法如下：

read FILEHANDLE, SCALAR, LENGTH, OFFSET
read FILEHANDLE, SCALAR, LENGTH

read()函数从 FILEHANDLE 中读取 LENGTH 字节的数据到 SCALAR 变量中，返回读取的字节的数量，到文件结尾时返回 0。它在出错的时候返回 undef。SCALAR 将增长或者缩短到实际读取的长度。如果声明了 OFFSET，则决定该变量从那里开始输出字节，这样就可以在一个字串中间读取数据。
要从文件句柄 FROM 中拷贝数据到文件句柄 TO，可以用下面的方法实现：

while(read(FROM, $buf, 16384)) {
    print TO $buf;
}

read 的反操作只是一个简单的 print，它已经知道你想写的字串长度并且可以写任意长度的字串。