PGM->Perl/ファイル操作 - プログラミングの勉強をしよう@Wiki

Top > PGM->Perl > ファイル操作

ファイル操作

ファイルを読み込み専用で開く

# ファイル名設定
my $file = $ARGV[0];
 
# ファイルを読み込み専用で開く
open HANDLE, $file;
 
# 改行コード単位に出力
while($line = <HANDLE>){
	print $line;
}
 
# ファイルクローズ
close HANDLE;
 

>perl sample.pl sample.txt
111111111
222222222
333333333
444444444
 
>
 

ファイルを書き込み(上書き)専用で開く

# ファイル名設定
my $file = $ARGV[0];
 
# ファイルを書き込み専用で開く
open HANDLE, ">$file";
 
# ファイル出力
print HANDLE "test-sample\n";
print HANDLE "test-sample\n";
print HANDLE "test-sample\n";
 
# ファイルクローズ
close HANDLE;
 
# 再読み込みを行う
open HANDLE, "<$file";
 
# 読み込み
while($line = <HANDLE>){
	print $line;
}
 
# クローズ
close HANDLE;
 

>perl sample.pl sample.txt
test-sample
test-sample
test-sample
 
>
 

ファイルを読み込み＋書き込み両用(既存ファイル存在時は使用、未存在時は作成)で開く

# ファイル名設定
my $file = $ARGV[0];
 
#############################################################
# 読み込みを行う
open HANDLE, "<$file";
 
# 読み込み
while($line = <HANDLE>){
	print $line;
}
 
# クローズ
close HANDLE;
 
#############################################################
# ファイルを読み込み／書き込み両用で開く
open HANDLE, "+<$file";
 
# ファイル出力
print HANDLE "test-read-write\n";
print HANDLE "test-read-write\n";
print HANDLE "test-read-write\n";
 
# ファイルクローズ
close HANDLE;
 
print "-----------------------------------------------------------\n";
 
# 再読み込みを行う
open HANDLE, "<$file";
 
# 読み込み
while($line = <HANDLE>){
	print $line;
}
 
# クローズ
close HANDLE;
 

>perl sample.pl sample.txt
test-sample
test-sample
test-sample
test-sample
test-sample
test-sample
-----------------------------------------------------------
test-read-write
test-read-write
test-read-write
 
test-sample
test-sample
 
>
 

ファイルを読み込み＋書き込み両用(既存ファイル存在時はクリア、未存在時は作成)で開く

# ファイル名設定
my $file = $ARGV[0];
 
#############################################################
# 読み込みを行う
open HANDLE, "<$file";
 
# 読み込み
while($line = <HANDLE>){
	print $line;
}
 
# クローズ
close HANDLE;
 
#############################################################
# ファイルを読み込み／書き込み両用で開く
open HANDLE, "+>$file";
 
# ファイル出力
print HANDLE "test-read-write\n";
print HANDLE "test-read-write\n";
print HANDLE "test-read-write\n";
 
# ファイルクローズ
close HANDLE;
 
print "-----------------------------------------------------------\n";
 
# 再読み込みを行う
open HANDLE, "<$file";
 
# 読み込み
while($line = <HANDLE>){
	print $line;
}
 
# クローズ
close HANDLE;
 

>perl sample.pl sample.txt
test-sample
test-sample
test-sample
test-sample
test-sample
test-sample
-----------------------------------------------------------
test-read-write
test-read-write
test-read-write
 
>
 

ファイルを追記専用で開く

# ファイル名設定
my $file = $ARGV[0];
 
###############################################
# 既存ファイルを読み込み専用で開く
open HANDLE, $file;
 
# 改行コード単位に出力
while($line = <HANDLE>){
	print $line;
}
 
# ファイルクローズ
close HANDLE;
 
###############################################
# 追記モードで開く
open HANDLE, ">>$file";
 
# 追記書き込み
print HANDLE "test-add\n";
print HANDLE "test-add\n";
print HANDLE "test-add\n";
 
# ファイルクローズ
close HANDLE;
 
print "-------------------------------------------\n";
 
###############################################
# 既存ファイルを読み込み専用で開く
open HANDLE, $file;
 
# 改行コード単位に出力
while($line = <HANDLE>){
	print $line;
}
 
# ファイルクローズ
close HANDLE;
 

>perl sample.pl sample.txt
test-sample
test-sample
test-sample
-------------------------------------------
test-sample
test-sample
test-sample
test-add
test-add
test-add
 
>
 

---