Perl - ディレクトリ操作(ファイルの削除(unlink))

初めてのPerl 第6版
(オライリージャパン)
Randal L. Schwartz (著) brian d foy (著)
Tom Phoenix (著), 近藤 嘉雪 (翻訳)

開発環境

• OS X Mavericks - Apple(OS)
• BBEdit - Bare Bones Software, Inc., Emacs (Text Editor)
• Perl (プログラミング言語)

初めてのPerl 第6版 (Randal L. Schwartz (著)、brian d foy (著)、Tom Phoenix (著)、近藤 嘉雪 (翻訳)、オライリージャパン)、13章(ディレクトリ操作)の13.13(練習問題)4.を解いてみる。

その他参考書籍

• プログラミングPerl〈VOLUME1〉
• プログラミングPerl〈VOLUME2〉
• Perlクックブック〈VOLUME1〉
• Perlクックブック〈VOLUME2〉

13.13(練習問題)4.

コード(BBEdit, Emacs)

sample289_4.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
binmode STDIN, ':utf8';
binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';

for (@ARGV) {
    unlink $_ or warn "can't unlink '$_': $!";
}

入出力結果(Terminal)

$ ls
sample289_1.pl sample289_2.pl sample289_3.pl~ temp.txt temp2.txt
sample289_1.pl~ sample289_3.pl sample289_4.pl temp1.txt
$ ./sample289_4.pl temp.txt temp2.txt 
$ ls
sample289_1.pl sample289_2.pl sample289_3.pl~ temp1.txt
sample289_1.pl~ sample289_3.pl sample289_4.pl
$ ./sample289_4.pl *~ abcde temp1.txt 
can't unlink 'abcde': No such file or directory at ./sample289_4.pl line 10.
$ ls
sample289_1.pl sample289_2.pl sample289_3.pl sample289_4.pl
$