第2回　Perlモジュールの基礎とインストール

 1: #!/usr/bin/perl
 2: package My::Dir;
 3: use strict;
 4: our $Dir;  #5.005などではuse vars qw($Dir);
 5: our $Sum;  #5.005などではuse vars qw($Sum);
 6: sub getDirSize($) {
 7:   my($sDir) = @_;
 8:   $sDir ||= '.';
 9:   my $iSum = 0;
10:   opendir IN, $sDir;
11:   while(my $sFile=readdir(IN)) {
12:     next if(($sFile eq '.') or ($sFile eq '..'));
13:     $iSum += (-s "$sDir/$sFile");
14:   }
15:   closedir IN;
16:   $Dir = $sDir;
17:   $Sum = $iSum;
18:   return $iSum;
19: }
20: 1;
21: __END__
22: =POD
23: =head1 名前
24:
25: My::Dir : ディレクトリ関連モジュール
26:
27: =head1 概要
28:
29: use strict;
30: use My::Dir;
31: print My::Dir::getSizeDir('mydir');
32: print $My::Dir::Dir, ' : ', $My::Dir::Sum, "n";
33:
34: =head1 説明
35:
36: =head2 getSizeDir($)
37:
38: 指定されたディレクトリに入っている
ファイルの大きさの合計を計算する。
39:
40: =head2 $My::Dir::Dir
41:
42: 前回、指定されたディレクトリ名
43:
44: =head2 $My::Dir::Sum
45:
46: 前回、求めた大きさの合計
47:
48: =cut

 1: #!/usr/bin/perl
 2: package My::DirOO;
 3: use strict;
 4: sub new($) {
 5: my ($sClass) = @_;
 6: bless {}, $sClass;
 7: }
 8: sub getDirSize($$) {
 9: my($oSelf, $sDir) = @_;
10: $sDir ||= '.';
11: my $iSum = 0;
12: opendir IN, $sDir;
13: while(my $sFile=readdir(IN)) {
14: next if(($sFile eq '.') or ($sFile eq '..'));
15: $iSum += (-s "$sDir/$sFile");
16: }
17: closedir IN;
18: $oSelf->{Dir} = $sDir;
19: $oSelf->{Sum} = $iSum;
20: return $iSum;
21: }
22: 1;
23: __END__
24: =POD
25: =head1 名前
26:
27: My::DirOO : ディレクトリ関連モジュール(OO)
28:
29: =head1 概要
30:
31: use strict;
32: use My::DirOO;
33: my $oDir = My::DirOO->new;
34: print $oDir->getSizeDir('mydir');
35: print $oDir->{Dir}, ' : ' , $oDir->{Sum}, "n";
36:
37: =head1 説明
38:
39: =head2 getSizeDir($)
40:
41: 指定されたディレクトリに入っている
ファイルの大きさの合計を計算する。
42:
43: =head1 プロパティ
44:
45: =head2 Dir
46:
47: 前回、指定されたディレクトリ名
48:
49: =head2 Sum
50:
51: 前回、求めた大きさの合計
52:
53: =cut