Perl - プロセス管理(プロセスとファイルハンドル)

開発環境

• OS X Lion - Apple(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 "Cannot chdir /: $!"; exec "ls", "-l" or die "ls couldn't run: $!";

入出力結果(Terminal)

$ ls perl_program $ ./perl_program $ ls ls.err ls.out perl_program $ cat ls.err $ cat ls.out total 30453 drwxrwxr-x+ 77 root admin 2618 Jan 14 12:24 Applications drwxrwxr-x 15 root admin 510 Nov 19 00:21 Developer drwxrwxr-x@ 19 root admin 646 Aug 6 17:09 Developer-3.2.6 drwxr-xr-x+ 66 root wheel 2244 Dec 6 18:40 Library drwxr-xr-x@ 2 root wheel 68 Aug 17 10:40 Network drwxr-xr-x+ 4 root wheel 136 Oct 16 11:37 System drwxr-xr-x 5 root admin 170 Oct 16 11:43 Users drwxrwxrwt@ 5 root admin 170 Jan 14 15:10 Volumes drwxr-xr-x@ 39 root wheel 1326 Oct 16 11:32 bin drwxrwxr-t@ 2 root admin 68 Aug 17 10:40 cores dr-xr-xr-x 3 root wheel 4221 Jan 14 10:56 dev lrwxr-xr-x@ 1 root wheel 11 Oct 16 11:32 etc -> private/etc dr-xr-xr-x 2 root wheel 1 Jan 14 15:14 home -rw-r--r--@ 1 root wheel 15565404 Aug 10 12:58 mach_kernel dr-xr-xr-x 2 root wheel 1 Jan 14 15:14 net drwxr-xr-x 3 root admin 102 Sep 5 19:56 opt drwxr-xr-x@ 6 root wheel 204 Oct 16 11:43 private drwxr-xr-x@ 62 root wheel 2108 Oct 16 11:36 sbin lrwxr-xr-x@ 1 root wheel 11 Oct 16 11:35 tmp -> private/tmp drwxr-xr-x@ 14 root wheel 476 Oct 20 17:46 usr lrwxr-xr-x@ 1 root wheel 11 Oct 16 11:35 var -> private/var lrwxr-xr-x 1 root admin 60 Mar 23 2010 ユーザーズガイドと情報 -> /Library/Documentation/User Guides and Information.localized $

スマートマッチが全然上手くいってない。なんでだろ。。

原因が分からないのでとりあえず次に進むことに。