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

初めてのPerl 第5版
Randal L. Schwartz
Tom Phoenix, brian d foy 共著

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
• Script言語:Perl

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

2.

コード(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 change dirctory to / :$!";
system "ls", "-l";

入出力結果(Terminal)

$ ls ls*
ls: ls*: No such file or directory
$ ./sample.pl
$ ls ls*
ls.err ls.out
$ cat ls.err
$ cat ls.out
total 30453
drwxrwxr-x+ 68 root  admin      2312  7  7 01:13 Applications
drwxrwxr-x  15 root  admin       510 11 19  2011 Developer
drwxrwxr-x@ 19 root  admin       646  8  6  2011 Developer-3.2.6
drwxr-xr-x+ 68 root  wheel      2312  4 23 23:20 Library
drwxr-xr-x@  2 root  wheel        68  8 17  2011 Network
drwxr-xr-x+  4 root  wheel       136  5 10 10:22 System
drwxr-xr-x   5 root  admin       170 10 16  2011 Users
drwxrwxrwt@  5 root  admin       170  7  7 00:00 Volumes
drwxr-xr-x@ 39 root  wheel      1326  5 10 10:17 bin
drwxrwxr-t@  2 root  admin        68  8 17  2011 cores
dr-xr-xr-x   3 root  wheel      4215  7  6 23:58 dev
lrwxr-xr-x@  1 root  wheel        11 10 16  2011 etc -> private/etc
dr-xr-xr-x   2 root  wheel         1  7  7 00:07 home
drwxrwxrwt   3 root  wheel       102  7  1 22:10 lost+found
-rw-r--r--@  1 root  wheel  15567576  4 10 11:34 mach_kernel
dr-xr-xr-x   2 root  wheel         1  7  7 00:07 net
drwxr-xr-x   3 root  admin       102  9  5  2011 opt
drwxr-xr-x@  6 root  wheel       204 10 16  2011 private
drwxr-xr-x@ 62 root  wheel      2108  5 10 10:17 sbin
lrwxr-xr-x@  1 root  wheel        11 10 16  2011 tmp -> private/tmp
drwxr-xr-x@ 15 root  wheel       510  5 10 10:20 usr
lrwxr-xr-x@  1 root  wheel        11 10 16  2011 var -> private/var
lrwxr-xr-x   1 root  admin        60  3 23  2010 ユーザーズガイドと情報 -> /Library/Documentation/User Guides and Information.localized
$