ファイルハンドル名の付け方

変数名にはアルファベット・数字・アンダーバー("_")を使うことが出来ます
(例) name, old20, _hokan

先頭の文字に数字は利用できません
(例) 10kago は不可

大文字と小文字は区別します。
(例) old と Old は別の変数名となります

DATAFILE
LOG

標準で用意されているファイルハンドル

STDIN   標準入力。キーボードからの入力など。
STDOUT  標準出力。画面への出力など。
STDERR  標準エラー。エラーとしての出力。

open(ファイルハンドル名, "ファイル名");
open(ファイルハンドル名, "モード", "ファイル名");

open(DATAFILE, "data.txt");

ファイルを閉じる

close(ファイルハンドル名);

open(DATAFILE, "data.txt");
close(DATAFILE);

サンプルプログラム

# ファイルのオープンとクローズ
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

if (open(DATAFILE, "data.txt")){
  print "data.txtを開く事に成功しました\n";

  if (close(DATAFILE)){
    print "data.txtを閉じる事に成功しました\n";
  }else{
    print "data.txtを閉じる事に失敗しました\n";
  }
}else{
  print "data.txtを開く事に失敗しました\n";
}

if (open(DATAFILE, "data1.txt")){
  print "data1.txtを開く事に成功しました\n";

  if (close(DATAFILE)){
    print "data1.txtを閉じる事に成功しました\n";
  }else{
    print "data1.txtを閉じる事に失敗しました\n";
  }
}else{
  print "data1.txtを開く事に失敗しました\n";
}

[xxxxxxxx@dddddddddd File]$ perl test2-1_u.pl | nkf -w
data.txtを開く事に成功しました
data.txtを閉じる事に成功しました
data1.txtを開く事に失敗しました
[xxxxxxxx@dddddddddd File]$ 

if (!open(DATAFILE, "data.txt")){
  die("error :$!");
}

unless (open(DATAFILE, "data.txt")){
  die("error :$!");
}

open(DATAFILE, "data.txt") or die("error :$!");

サンプルプログラム

# ファイルオープン時のエラー処理
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

open(DATAFILE, "data.txt") or die("error :$!");
print "data.txtを開く事に成功しました\n";

close(DATAFILE);

open(DATAFILE, "data1.txt") or die("error :$!");
print "data1.txtを開く事に成功しました\n";

close(DATAFILE);

# ファイルオープン時のエラー処理
#
use strict;
use warnings;
# use utf8;                          # デフォルト文字コードを利用
# binmode STDIN, ':encoding(cp932)';
# binmode STDOUT, ':encoding(cp932)';
# binmode STDERR, ':encoding(cp932)';

open(DATAFILE, "data.txt") or die("error :$!");
print "data.txtを開く事に成功しました\n";

close(DATAFILE);

open(DATAFILE, "data1.txt") or die("error :$!");
print "data1.txtを開く事に成功しました\n";

close(DATAFILE);

[xxxxxxxx@dddddddddd File]$ perl test3-1_u.pl
data.txtを開く事に成功しました
error :そのようなファイルやディレクトリはありません at test3-1_u.pl line 15.
[xxxxxxxx@dddddddddd File]$ 

while (my $line = ){
  chomp($line);
  print "$line\n";
}

open(DATAFILE, "< data.txt")) or die("error :$!");

while (my $line = <DATAFILE>){
  chomp($line);
  print "$line\n";
}

文字コードの指定

use open ":utf8";

サンプルプログラム

# テキストデータを読み込む
#
use strict;
use warnings;
use utf8;
use open ":utf8";
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

open(DATAFILE, "< data4-1_u.txt") or die("Error:$!");

while(my $line = <DATAFILE>){
  chomp($line);
  print "$line\n";
}

[xxxxxxxx@dddddddddd File]$ perl test4-1_u.pl | nkf -w
サンプル用のファイルです。
Tokyo
[xxxxxxxx@dddddddddd File]$ 

print "書き出したいデータ";

print ファイルハンドル リスト;

print STDOUT "書き出したいデータ";

open(DATAFILE, ">> data.txt") or die("error :$!");

print DATAFILE "書き出したいデータ";

サンプルプログラム

# テキストデータを書き込む
#
use strict;
use warnings;
use utf8;
use open ":utf8";
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

open(DATAFILE, ">> data5-1.txt") or die("Error:$!");

print DATAFILE "大阪\n";
print DATAFILE "Osaka\n";

[xxxxxxxx@dddddddddd File]$ perl test5-1_u.pl | nkf -w
[xxxxxxxx@dddddddddd File]$ 

open(ファイルハンドル, "< ファイル名");
open(ファイルハンドル, "<", "ファイル名");

・読み込み専用
・ファイルが存在していた場合、ファイルを開いた時にファイルの内容を変更しない
・ファイルが存在してなかった場合、エラー

open(DATAFILE, "<", "data.txt") or die("error :$!");

サンプルプログラム

# 「<」モード(読み込み)
#
use strict;
use warnings;
use utf8;
use open ":utf8";
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

open(DATAFILE, "<", "data6-1_u.txt") or die("Error:$!");

while(my $line = <DATAFILE>){
  chomp($line);
  print "$line\n";
}

close(DATAFILE);

[xxxxxxxx@dddddddddd File]$ perl test6-1_u.pl | nkf -w
山田太郎
東京都杉並区
男性
[xxxxxxxx@dddddddddd File]$ 

open(ファイルハンドル, "> ファイル名");
open(ファイルハンドル, ">", "ファイル名");

・書き込み専用
・ファイルが存在していた場合、ファイルを開いた時にファイルサイズを0にする
・ファイルが存在してなかった場合、新規にファイルを作成

open(DATAFILE, ">", "data.txt") or die("error :$!");

サンプルプログラム

# 「>」モード(書き込み)
#
use strict;
use warnings;
use utf8;
use open ":utf8";
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

open(DATAFILE, ">", "data7-1.txt") or die("Error:$!");

print DATAFILE "加藤 花子\n";
print DATAFILE "東京都新宿区\n";
print DATAFILE "女性";

close(DATAFILE);

open(DATAFILE, ">", "data7-2.txt") or die("Error:$!");

print DATAFILE "山崎 一郎\n";
print DATAFILE "大阪府吹田市\n";
print DATAFILE "男性";

close(DATAFILE);

[xxxxxxxx@dddddddddd File]$ perl test7-1_u.pl | nkf -w
[xxxxxxxx@dddddddddd File]$ 

open(ファイルハンドル, ">> ファイル名");
open(ファイルハンドル, ">>", "ファイル名");

・書き込み専用
・ファイルが存在していた場合、ファイルを開いた時にファイルの内容を変更しない
・ファイルが存在してなかった場合、新規にファイルを作成

open(DATAFILE, ">>", "data.txt") or die("error :$!");

サンプルプログラム

# 「>>」モード(書き込み)
#
use strict;
use warnings;
use utf8;
use open ":utf8";
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

open(DATAFILE, ">>", "data8-1.txt") or die("Error:$!");

print DATAFILE "加藤 花子\n";
print DATAFILE "東京都新宿区\n";
print DATAFILE "女性";

close(DATAFILE);

open(DATAFILE, ">>", "data8-2.txt") or die("Error:$!");

print DATAFILE "山崎 一郎\n";
print DATAFILE "大阪府吹田市\n";
print DATAFILE "男性";

close(DATAFILE);

[xxxxxxxxx@dddddddddd File]$ perl test8-1_u.pl | nkf -w
[xxxxxxxxx@dddddddddd File]$ 

open(ファイルハンドル, "+< ファイル名");
open(ファイルハンドル, "+<", "ファイル名");

・読み込み、書き込みの両方とも可
・ファイルが存在していた場合、ファイルを開いた時にファイルの内容を変更しない
・ファイルが存在してなかった場合、エラー
・ファイルポインタは先頭

open(DATAFILE, "+<", "data.txt") or die("error :$!");

サンプルプログラム

# 「+<」モード(読み書き)
#
use strict;
use warnings;
use utf8;
use open ":utf8";
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

open(DATAFILE, "+<", "data9-1.txt") or die("Error:$!");

print DATAFILE "加藤 花子\n";

close(DATAFILE);

open(DATAFILE, "+<", "data9-1.txt") or die("Error:$!");

print "変更後:\n";

while(my $line = <DATAFILE>){
  chomp($line);
  print "$line\n";
}

close(DATAFILE);

open(DATAFILE, "+<", "data9-2.txt") or die("Error:$!");

print DATAFILE "加藤 花子\n";
print DATAFILE "東京都新宿区\n";
print DATAFILE "女性";

close(DATAFILE);

[xxxxxxxx@dddddddddd File]$ perl test9-1_u.pl
変更後:
加藤 花子

東京都杉並区
男性
Error:そのようなファイルやディレクトリはありません at test9-1_u.pl line 28.
[xxxxxxxx@dddddddddd File]$ 

[xxxxxxxx@dddddddddd File]$ nkf -w data9-1.txt
加藤 花子

東京都杉並区
男性
[xxxxxxxx@dddddddddd File]$ 

open(ファイルハンドル, "+> ファイル名");
open(ファイルハンドル, "+>", "ファイル名");

・読み込み、書き込みの両方とも可
・ファイルが存在していた場合、ファイルを開いた時にファイルサイズを0にする
・ファイルが存在してなかった場合、新規にファイルを作成

open(DATAFILE, "+>", "data.txt") or die("error :$!");

サンプルプログラム

# 「+>」モード(読み書き)
#
use strict;
use warnings;
use utf8;
use open ":utf8";
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

open(DATAFILE, "+>", "data10-1.txt") or die("Error:$!");

print DATAFILE "加藤 花子\n";
print DATAFILE "東京都新宿区\n";
print DATAFILE "女性";

close(DATAFILE);

open(DATAFILE, "<", "data10-1.txt") or die("Error:$!");

print "追加後:\n";

while(my $line = <DATAFILE>){
  chomp($line);
  print "$line\n";
}

close(DATAFILE);

open(DATAFILE, "+>", "data10-2.txt") or die("Error:$!");

print DATAFILE "山崎 一郎\n";
print DATAFILE "大阪府吹田市\n";
print DATAFILE "男性";

close(DATAFILE);

[xxxxxxxx@dddddddddd File]$ perl test10-1_u.pl | nkf -w
追加後:
加藤 花子
東京都新宿区
女性
[xxxxxxxx@dddddddddd File]$ 

open(ファイルハンドル, "+>> ファイル名");
open(ファイルハンドル, "+>>", "ファイル名");

・読み込み、書き込みの両方とも可
・ファイルが存在していた場合、ファイルを開いた時にファイルの内容を変更しない
・ファイルが存在してなかった場合、新規にファイルを作成
・ファイルポインタは最後

open(DATAFILE, "+>>", "data.txt") or die("error :$!");

サンプルプログラム

# 「+>>」モード(読み書き)
#
use strict;
use warnings;
use utf8;
use open ":utf8";
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

open(DATAFILE, "+>>", "data11-1.txt") or die("Error:$!");

print "追加前:\n";

while(my $line = <DATAFILE>){
  chomp($line);
  print "$line\n";
}

print DATAFILE "加藤 花子\n";
print DATAFILE "東京都新宿区\n";
print DATAFILE "女性";

close(DATAFILE);

open(DATAFILE, "+>>", "data11-1.txt") or die("Error:$!");

print "追加後:\n";

while(my $line = <DATAFILE>){
  chomp($line);
  print "$line\n";
}

close(DATAFILE);

open(DATAFILE, "+>>", "data11-2.txt") or die("Error:$!");

print DATAFILE "山崎 一郎\n";
print DATAFILE "大阪府吹田市\n";
print DATAFILE "男性";

close(DATAFILE);

[xxxxxxxx@dddddddddd File]$ perl test11-1_u.pl | nkf -w
追加前:
追加後:
[xxxxxxxx@dddddddddd File]$ 

open プラグマ

use open IN  => ":utf8";
use open OUT => ":utf8";
use open IO => ":utf8";

use open IN  => ":encoding(文字コード)";
se open OUT => ":encoding(文字コード)";
use open IO => ":encoding(文字コード)";

use open IN  => ":utf8";
use open OUT  => ":encoding(cp932)";

use open IO ":utf8";
use open IO ":encoding(cp932)";

open関数の引数に指定する

open(ファイルハンドル名, "モード:文字コード", "ファイル名");

open(DATAFILE, "<:utf8", "datain.txt");
open(DATAFILE, ">:encoding(cp932)", "dataout.txt");

サンプルプログラム

# 文字コードの指定
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

open(DATAFILE, "<:utf8", "data12-1.txt") or die("Error:$!");

while(my $line = <DATAFILE>){
  chomp($line);
  print "$line\n";
}

close(DATAFILE);

open(DATAFILE, ">:encoding(cp932)", "data12-2.txt") or die("Error:$!");

print DATAFILE "加藤 花子\n";
print DATAFILE "東京都新宿区\n";
print DATAFILE "女性";

close(DATAFILE);

[xxxxxxxx@dddddddddd File]$ perl test12-1_u.pl | nkf -w
山田太郎
東京都杉並区
男性
[xxxxxxxx@dddddddddd File]$