[perl] 파일&디렉토리

1. 홈 디렉토리

$ENV{"HOME"};

or

use File::HomeDir;
File::HomeDir->my_home;

2. 전체 파일 읽기

my $doc=do{
    local $/=undef;
    open FP,"<","file" or die "$!\n";
    <FP>;
};

$/ 에 undef를 넣어서 파일 전체를 읽는것을 local 키워드로 복원하지 않아도 되게 구현 해 놓았다.