ファイルを作成する


  1. Perl


  2. ファイル操作


  3. here

ファイルを作成する。書き込みモードでファイルをオープンします。Perl には、ファイルを作成するためだけの、関数がありません。ファイルを作成するには、open関数の書き込みモードを使います。

open my $fh, ">", $file;

サンプル

ファイルを作成するサンプルです。

use strict;
use warnings;

# ファイルを作成する。open my $fh, ">", $file

print "1: ファイルを作成する。";
my $file = "sample_20080519_$$.txt"; # $$ はプロセスID

if (-e $file) {
  die "$file は、すでに存在します。";
}
else {
  open my $fh, ">", $file
    or die "$file を書き込みモードでオープンすることができません。: $!";
  close $fh;
}