[펄 (Perl)] 특정 디렉토리 내의 모든 파일 리스트 출력하기
특정 디렉토리 내의 모든 파일 리스트를 재귀적으로(recursive) 출력하는 펄 함수는 다음과 같습니다.
sub process_files
{
my $path = shift;
opendir (DIR, $path) or die;
my @files = map { $path . '/' . $_ } grep { !/^\.{1,2}$/ } readdir (DIR);
my @result;
closedir (DIR);
for (@files)
{
if (-d $_) { push @result, process_files ($_); }
else { push @result, $_; }
}
return @result;
}
'개발, 전산, AI, IT' 카테고리의 다른 글
| 윈도폰 8에서 gmail을 사용해서 이메일을 보낼 때 중복되는 문제 (0) | 2018.08.14 |
|---|---|
| [JUnit] 명령줄(커맨드 라인)에서 JUnit 실행하기 (0) | 2018.08.14 |
| [펄 (Perl)] 배열에 특정 값이 있는지 검사하기 (0) | 2018.08.13 |
| [리눅스] 특정 디렉토리 내 파일 개수 보기 (0) | 2018.08.13 |
| [펄 (Perl)] HTML Entity(문자 참조)를 일반 문자로 변환하기 (0) | 2018.08.13 |