プログラミング学習の記録 612.2 16章(プロセス管理)の練習問題1 『初めての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(練習問題)、1を解いてみる。

 

1.

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

コード(TextWrangler)

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

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

入出力結果(Ternimal)

$ ./my_program total 40732 drwxrwxr-x+ 85 root admin 2890 Jul 9 09:50 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 11 17:44 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

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