아래는 어떤 모듈의 디스크를 가져오는 부분의 일부분을 가져다 조금 뜯어 고친겁니다 굴은 글씨로 칠한부분 처음엔 이해 안갓는데 차근 차근 집어보니 2차원 해쉬더군요 문법 공부의 부족함을 요즘 많이 느끼고 있습니다. 저런식으로도 해쉬를 사용할수 있다는걸 알았으니 앞으로 저코드를 응용할일이 많을 듯싶네요. my ($self) = @_; my $disktotal=0; my $diskfree=0; my $df_cmd = "df -kP"; local $ENV{PATH} = "/bin"; my (%disk_usage, $disk_name); open my $fh, "$df_cmd|" or croak " unable to execute '$df_cmd' ($!)"; {my $null = ;} while (my $lin..