プログラミング学習の記録 705.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/env perl use strict; use warnings; open STDOUT, ">ls.out" or die "Can't write to ls.out: $!"; open STDERR, ">ls.err" or die "Can't write to ls.err: $!"; chdir "/" or die "Can't chdir /: $!"; system "ls -l";

入出力結果(Terminal)

$ ./perl_program

出来上がったファイルの中身

ls.out

total 40732 drwxrwxr-x+ 74 root admin 2516 Oct 13 10:40 Applications drwxrwxr-x@ 19 root admin 646 Aug 6 17:09 Developer drwxrwxr-t+ 59 root admin 2006 Mar 9 2011 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 Oct 13 02:22 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 4075 Oct 9 11:25 dev lrwxr-xr-x@ 1 root wheel 11 Mar 22 2010 etc -> private/etc dr-xr-xr-x 2 root wheel 1 Oct 9 11:25 home -rw-r--r--@ 1 root wheel 20828964 Jun 8 08:35 mach_kernel dr-xr-xr-x 2 root wheel 1 Oct 9 11:25 net drwxr-xr-x@ 6 root wheel 204 Mar 22 2010 private drwxr-xr-x@ 67 root wheel 2278 Jun 24 07:00 sbin -rw-r--r-- 1 kamimura admin 0 Sep 18 02:54 test.out lrwxr-xr-x@ 1 root wheel 11 Mar 22 2010 tmp -> private/tmp drwxr-xr-x@ 14 root wheel 476 Aug 6 17:10 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(空っぽ)

ls.errも確認するために、移動するディレクトリをルートディレクトリ「/」ではなく「kamimura」と存在しないディレクトリに変更して プログラムを実行してみる。

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; open STDOUT, ">ls.out" or die "Can't write to ls.out: $!"; open STDERR, ">ls.err" or die "Can't write to ls.err: $!"; chdir "kamimura" or die "Can't chdir /: $!"; system "ls -l";

入出力結果(Terminal)

$ ./perl_program

出来上がったファイルの中身

ls.out(空っぽ)

ls.err

Can't chdir /: No such file or directory at ./perl_program line 8.