プログラミング学習の記録 613.2 16章(プロセス管理)の練習問題2 『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)

開発環境

• Mac OS X Snow Leopard (OS)
• TextWrangler(Text Editor) (いずれはBBEditを入手したい！)
• Script言語:Perl

『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9) の16章(プロセス管理), 16.8(練習問題)、2を解いてみる。

 

2.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)

#!/usr/bin/perl
use strict;
use warnings;

# カレントディレクトリにファイルを書き出す
open STDOUT,">ls.out" or 
　die "Cannot write to ls.out: $!";
open STDERR,">ls.err" or 
  die "Cannot write to ls.err: $!";

# システムのルートディレクトリに移動
chdir "/" or die "Cannot chdir /: $!";
exec "ls","-l" or die "Cannot exec ls: $!";

入出力結果(Ternimal)

$ ./my_program

カレントディレクトリに作成されたファイル

ls.out

total 40732 drwxrwxr-x+ 86 root admin 2924 Jul 12 22:24 Applications drwxrwxr-x@ 18 root admin 612 May 22 07:48 Developer drwxrwxr-t+ 59 root admin 2006 Mar 9 20:56 Library drwxr-xr-x@ 2 root wheel 68 Jun 23 2009 Network drwxr-xr-x 4 root wheel 136 Jun 24 07:04 System drwxr-xr-x 5 root admin 170 Mar 22 2010 Users drwxrwxrwt@ 3 root admin 102 Jul 13 00:32 Volumes drwxr-xr-x@ 39 root wheel 1326 Jun 24 07:00 bin drwxrwxr-t@ 2 root admin 68 Jun 23 2009 cores dr-xr-xr-x 3 root wheel 4062 Jul 6 18:18 dev lrwxr-xr-x@ 1 root wheel 11 Mar 22 2010 etc -> private/etc dr-xr-xr-x 2 root wheel 1 Jul 6 18:19 home -rw-r--r--@ 1 root wheel 20828964 Jun 8 08:35 mach_kernel dr-xr-xr-x 2 root wheel 1 Jul 6 18:19 net drwxr-xr-x@ 6 root wheel 204 Mar 22 2010 private drwxr-xr-x@ 67 root wheel 2278 Jun 24 07:00 sbin lrwxr-xr-x@ 1 root wheel 11 Mar 22 2010 tmp -> private/tmp drwxr-xr-x@ 11 root wheel 374 Jul 13 2010 usr lrwxr-xr-x@ 1 root wheel 11 Mar 22 2010 var -> private/var lrwxr-xr-x 1 root admin 60 Mar 23 2010 ユーザーズガイドと情報 -> /Library/Documentation/User Guides and Information.localized

エラーは起こらなかったのでカレントディレクトリにファイル、ls.errは出力されない。

エラーを出力してみる。

コード(TextWrangler)

#!/usr/bin/perl
use strict;
use warnings;

# カレントディレクトリにファイルを書き出す
open STDOUT,">ls.out" or die "Cannot write to ls.out: $!";
open STDERR,">ls.err" or die "Cannot write to ls.err: $!";

# システムのルートディレクトリに移動
chdir "/" or die "Cannot chdir /: $!";
# エラーを出力するため空っぽに
exec "","" or die "Cannot exec ls: $!";

入出力結果(Ternimal)

$ ./my_program

カレントディレクトリに作成されたファイル

ls.err

Can't exec "": No such file or directory at ./my_program line 11. Cannot exec ls: No such file or directory at ./my_program line 11.

今度はエラーが発生したのでカレントディレクトリにファイル、ls.outは作成されなかった。

何度か最初のコードを実行しているうちに、上記に書いたようにファイル、ls.outのみ作成される場合と、ls.out(中身は上記と一緒)、ls.err(中身は空っぽ)の両方が作成される場合とがあった。理由は分からず．．．？

ファイルの用意が必要な場合はO'Reilly Japan - 初めてのPerl 第5版の関連ファイルのプログラム例に含まれているものを使用しています。