Perl tell 函数

描述

此函数返回指定 FILEHANDLE 中读取指针的当前位置（以字节为单位）。 如果省略 FILEHANDLE，则返回最后访问的文件中的位置。

语法

以下是此函数的简单语法 −

tell FILEHANDLE

tell

返回值

此函数以字节为单位返回当前文件位置。

示例

以下是显示其基本用法的示例代码，要检查此功能，请执行以下操作 −

• 创建一个以"this is test"为内容的文本文件，并将其存储到/tmp目录中。

• 从此文件中读取 2 个字符。

• 现在检查文件中读取指针的位置。

#!/usr/bin/perl -w

open( FILE, "</tmp/test.txt" ) || die "Enable to open test file";
$char = getc( FILE );
print "First Character is $char\n";
$char = getc( FILE );
print "Second Character is $char\n";
# Now check the position of read pointer.
$position = tell( FILE );
print "Position with in file $position\n";
close(FILE);

执行上述代码时，会产生以下结果 −

First Character is E
Second Character is O
Position with in file 2

❮ Perl 函数参考