Perlでファイル書き出し

自己紹介

• TwitterID

  @techno_neko

• お仕事

  組み込み系

• 所属

  Hokkaido.pm

ファイル書き出し遍歴＠Perl

• open関数を使う(1)

  引数が2つから3つの時代へ

• IO::Fileを使う

  ファイルハンドルを関数に渡せる

• open関数を使う(2)

  局所変数にファイルハンドルを格納できるので、
  IO::File使わなくて良くなった！

open関数を使う(1) - その1

• 引数が2つのバージョン

  ファイル名に">"が付いてる場合は？？？

		 1 use strict;
		 2 
		 3 open( FH, '>file1.txt' ) or die;
		 4 print FH 'foo';
		 5 close FH;
	

open関数を使う(1) - その2

• 引数が3つのバージョン

  特に理由がないならこっちを使う

		 1 use strict;
		 2 
		 3 open( FH, '>', 'file2.txt' ) or die;
		 4 print FH 'bar';
		 5 close FH;
	

IO::Fileを使う - その1

• 今まで書き方を変えたくない場合

  これならファイルハンドルを普通に引数で渡せる

		 1 use strict;
		 2 use IO::File;
		 3 
		 4 my $io = IO::File->new( 'file3.txt', 'w' ) or die;
		 5 print $io 'hoge';
		 6 close $io;
	

IO::Fileを使う - その2

• こういう書き方もできる

  やり方は1つじゃない

		 1 use strict;
		 2 use IO::File;
		 3 
		 4 my $io = IO::File->new( 'file4.txt', 'w' ) or die;
		 5 $io->print( 'fuga' );
		 6 $io->close;
	

open関数を使う(2)

• 個人的にこれがオススメ

  IO::File使わなくて良くなった！

		 1 use strict;
		 2 
		 3 open( my $fh, '>', 'file5.txt' ) or die;
		 4 print $fh 'piyo';
		 5 close $fh;
	

まとめ

• perldoc.jpを読もう

  最後の書き方は、「間接ファイルハンドル」と言うらしい

• バイナリファイルに気を付けて

  binmodeを使おう（特にWin32の場合！）

• 次はファイル読み込み

  続きは、どなたかお願いします

宣伝

絶賛発売中！

ご静聴、ありがとうございました