PerlならサンプルコードPerl入門

unlink関数 - ファイルを削除する

1. Perl
›
2. ファイル操作
›
3. 関数
›
4. unlink

　ファイルを削除するにはunlink関数を使用します。戻り値には、削除したファイルの個数が返ってきます。

unlink $file;

サンプル

　ファイルを削除するサンプルです。

use strict;
use warnings;
use Fcntl;

# ファイルを削除する。 

# 準備のためにファイル作成。
my $file = "sample_20080520_$$.txt";

sysopen(my $fh, $file, O_CREAT | O_WRONLY | O_EXCL)
  or die "$file を作成することができません。: $!";
close( $fh );
print "準備: '$file'が作成されました。\n\n";

print "1: ファイルを削除する。\n";
if (unlink $file) {
  print "'$file'は削除されました。\n";
}
else {
  print "'$file'は削除できませんでした。\n";
}

ツイートする

Permalink | コメント(0) | 12:53