# 上書き出力用としてオープン open TESTOUT, ">test.txt" or die "error $!\n"; print TESTOUT "test\n"; close TESTOUT; # 入力用としてオープン open TESTIN, "<test.txt" or die "error $!\n"; $s_test = getc(TESTIN); print "文字($s_test) -> 現在位置 : " . tell(TESTIN) . "\n"; $s_test = getc(TESTIN); print "文字($s_test) -> 現在位置 : " . tell(TESTIN) . "\n"; close TESTIN;