perl tell()函數

perl tell()函數例子，tell()函數實例代碼 - 指定的文件句柄返回讀指針的當前位置（以字節為單位）。

語法

tell FILEHANDLE tell

定義和用法

指定的文件句柄返回讀指針的當前位置（以字節為單位）。如果省略了文件句柄FILEHANDLE ，然後返回範圍內訪問的最後一個文件的位置。

返回值

• 當前的文件位置（以字節為單位）

例子

要檢查此函數，請在以下幾點：

• 創建一個文本文件，“這是測試”的內容，並把它存儲到/ tmp目錄。

• 從這個文件中讀取2個字符。

• 現在，檢查文件中的讀指針的位置。

#!/usr/bin/perl -w
#by www.yibai.com
open( FILE, "</tmp/test.txt" ) || die "Enable to open test file";
$char = getc( FILE );
print "First Charctaer is $char\n";
$char = getc( FILE );
print "Second Charctaer is $char\n";
# Now check the poistion of read poiter.
$position = tell( FILE );
print "Position with in file $position\n";
close(FILE);

這將產生以下結果：

First Charctaer is T
Second Charctaer is h
Position with in file 2