在 Perl 中对文件进行内部定位
可在 Perl 中使用 tell函数来了解文件当前位置,也可以使用 seek函数来指向文件内部的特定位置。
Perl tell 函数
首要需求是找到自己在文件中的位置,可使用 tell 函数查找,如以下所示 −
tell FILEHANDLE tell
如果指定了 FILEHANDLE,此函数会返回文件指针在 FILEHANDLE 中的位置(以字节为单位),如果没有指定,它会返回当前默认选定文件句柄的位置。
Perl seek 函数
seek 函数将文件指针定位到文件内指定数量的字节中 −
seek FILEHANDLE, POSITION, WHENCE
此函数使用 fseek 系统函数,并且有能力相对地定位到三个不同的点:开始、结束和当前位置。可以通过指定 WHENCE 的值来执行此操作。
零将定位设置为文件的开头。例如,该行将文件指针设置为文件中的第 256 个字节。
seek DATA, 256, 0;
广告