Saturday, October 21, 2006
펄,Perl] 여러 개의 파일 한꺼번에 일괄 처리, 와일드카드; opendir, readdir
파일이 수백 개 있고, 각 파일들에 하나씩 펄 스크립트를 실행해 주려면 아주 힘들 것입니다. 이때는 다음과 같은 방법으로 한꺼번에 처리해 줄 수 있습니다.
현재 디렉토리에 있는 모든 파일들의 목록을 구하여, 각 파일명을 화면에 출력하는 예제입니다.
opendir 과 readdir 함수로, 파일 목록을 구합니다. "*" 또는 "*.*" 라는 와일드카드가 적용된 것과 마찬가지입니다.
다만, 서브 디렉토리까지 작업할 수는 없습니다.
마침표(.) 1개는 현재 디렉토리를 의미하기에, opendir(DIR, "." ) 이렇게 하면 현재 디렉토리를 오픈하게 됩니다.
현재 디렉토리를 의미하는 "." 와, 상위 디렉토리를 의미하는 ".." 도 목록에 들어 있지만, 아무 필요가 없기에 생략시켰습니다.
☞ Perl(펄)
현재 디렉토리에 있는 모든 파일들의 목록을 구하여, 각 파일명을 화면에 출력하는 예제입니다.
dir 명령처럼, 현재 디렉토리의 모든 파일명 출력 예제
#!/usr/bin/perl
use strict; use warnings;
opendir(DIR, "." ) or die "$!\n";
my @items = readdir(DIR); # @items 라는 배열에, 파일 목록 넣기
closedir DIR;
foreach (@items) { # 각 파일을 대상으로 작업
next if $_ =~ /^\.\.?$/; # . 과 .. 생략
next unless (-f $_); # 디렉토리면 생략. 디렉토리까지 작업 대상으로 하려면 이 줄을 주석화해야 함.
print $_, "\n"; # 각 파일명 출력, 이 부분을 수정하면 다른 일괄 작업에 응용할 수 있음
}
use strict; use warnings;
opendir(DIR, "." ) or die "$!\n";
my @items = readdir(DIR); # @items 라는 배열에, 파일 목록 넣기
closedir DIR;
foreach (@items) { # 각 파일을 대상으로 작업
next if $_ =~ /^\.\.?$/; # . 과 .. 생략
next unless (-f $_); # 디렉토리면 생략. 디렉토리까지 작업 대상으로 하려면 이 줄을 주석화해야 함.
print $_, "\n"; # 각 파일명 출력, 이 부분을 수정하면 다른 일괄 작업에 응용할 수 있음
}
opendir 과 readdir 함수로, 파일 목록을 구합니다. "*" 또는 "*.*" 라는 와일드카드가 적용된 것과 마찬가지입니다.
다만, 서브 디렉토리까지 작업할 수는 없습니다.
마침표(.) 1개는 현재 디렉토리를 의미하기에, opendir(DIR, "." ) 이렇게 하면 현재 디렉토리를 오픈하게 됩니다.
현재 디렉토리를 의미하는 "." 와, 상위 디렉토리를 의미하는 ".." 도 목록에 들어 있지만, 아무 필요가 없기에 생략시켰습니다.
☞ Perl(펄)
Post a Comment
<< Home