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