open TESTOUT, ">test.txt" or die "error $!\n"; print TESTOUT "test test test test\n"; close TESTOUT; @a_file_info = stat("test.txt"); print "ファイルサイズ : $a_file_info[7]\n"; open TEST_FILE, "+<test.txt" or die "error $!\n"; # ファイルハンドルを使用 truncate(TEST_FILE, 9); $s_text = <TEST_FILE">; close TEST_FILE; @a_file_info = stat("test.txt"); print "変更後ファイルサイズ : $a_file_info[7]\n"; print $s_text . "\n"; # ファイル名を使用 truncate("test.txt", 0); @a_file_info = stat("test.txt"); print "再変更後ファイルサイズ : $a_file_info[7]\n";