fileの最近のブログ記事

inputfile="./サンプルテキスト.txt";
open(IN, inputfile);
@ARY = <IN>;
foreach $buf (@ARY) {
	print $buf;
}
close(IN);


配列読み込みで連結は下記

$inputfile="サンプルテキスト.txt";
open(IN, $inputfile);
@ARY = <IN>;
close(IN);

$myStr = join("", @ARY);
print $myStr;

exit;

$inputfile="サンプルテキスト.txt";
$outputfile="サンプルテキストout.txt";
open(IN, $inputfile);
@ARY = <IN>;
close(IN);

$myStr = join("", @ARY);

open (OUT,"> $outputfile");#書き込み新規文章で書き込む
print (OUT $myStr);
close(OUT);

exit;

#単にファイルをコピーするだけ

open(IN,"perl01.cgi");
while(<IN>)
{
	print "$. :$_";#$.は現在の行数
}
close(IN);

#open (F,"< filename.txt")読み込み
#open (F,"> filename.txt")書き込み新規文章で書き込む
#open (F,">> filename.txt")追加書き込み。一番後ろに書き込む
#open (F,"+< filename.txt")読み書き


open (OUT,"> $outputfile");
print (OUT $myStr);
close(OUT);

open(DATA,"+< access.txt");#読み書きモード
@data=<DATA>;
$data[0]++;
print $data[0];
seek(DATA,0,0);#ファイルカーソル移動
print DATA $data[0];
close (DATA);

access.txtには下記のように数字を入れておく
100018