[関数の使い方･書式]

○ ＝ tell [☆]

☆：ファイルハンドル名､ファイルハンドルオブジェクトへのリファレンス(を返す式)。
  ･･･ 省略時は最後に入力を行なったファイルが対象となる。
○：ファイルポジション(バイト)。　･･･　先頭位置は 0。

---

[関数の機能]

ファイルハンドル☆の現在のファイルポジションを返します。
通常、tell である時点のポジションを取得しておき､何らかの処理を行なった後でその値を seek 関数に渡して､ 元のポジションに移動するために用いられます。

● 最後の行を削除する
open (FH, "+< $file");
while (  )  { $position = tell(FH) if(not eof(FH)) }
truncate(FH, $position);