#!/usr/local/bin/perl
use strict;
use warnings;
use utf8; #プログラムはUTF8形式で記述
use open IN => ":utf8"; #読み込みファイルはUTF8形式
print "Content-type: text/html; charset=utf-8\n\n";
print "\n";
print "\n";
print "
\n";
print "CGI test\n";
print "\n";
print "\n";
print "------------------
\n";
#ファイルのサイズを指定したサイズに変更します。
open TESTOUT, ">test.txt" or die "error $!
\n";
print TESTOUT "test test test test\n";
close TESTOUT;
my @a_file_info = stat("test.txt");
print "ファイルサイズ : $a_file_info[7]
\n";
open TEST_FILE, "+\n";
truncate(TEST_FILE, 9); # ファイルハンドルを使用
my $s_text = ;
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";
print "------------------
\n";
print "\n";
print "\n";