와일드 카드로 Perl에 디렉토리 존재 여부 확인

Question

Perl 스크립트에 디렉토리 세트가 있는지 확인해야합니다. 디렉토리 이름은 XXXX * YYY 형식입니다 - 각 XXXX를 확인하고 true 인 경우 if 문을 입력해야합니다.

제 스크립트에는 $ monitor_location (스캔 할 루트 디렉토리에 대한 경로 포함)과 $ clientid (XXXX 포함)라는 두 개의 변수가 있습니다.

아래의 코드 스 니펫이 확장되어 내가하는 일 중 더 많은 것을 보여줍니다. 나는 각 클라이언트 ID를 반환하는 쿼리를 가지고 있으며, 반환 된 각 레코드에 대해 루핑을 수행하고 해당 클라이언트 ID가 사용하는 디스크 공간을 계산하려고합니다.

는 지금까지 (작동하지 않습니다) 다음 코드가 :

# loop for each client 
while (($clientid, $email, $name, $max_record) = $query_handle1->fetchrow_array()) 
{ 
    # add leading zeroes to client ID if needed 
    $clientid=sprintf"%04s",$clientid; 

    # scan file system to check how much recording space has been used 
    if (-d "$monitor_location/$clientid\*") { 
    # there are some call recordings for this client 
    $str = `du -c $monitor_location/$clientid* | tail -n 1 2>/dev/null`; 
    $str =~ /^(\d+)/; 
    $client_recspace = $1; 
    print "Client $clientid has used $client_recspace of $max_record\n"; 
    } 
} 

분명히하기 위해, 나는 XXXX로 시작하는 모든 폴더가있는 경우 if 문을 입력합니다.

희망적이라고 생각하세요! 감사합니다

Answer 1

당신은 와일드 카드를 확장 glob를 사용할 수 있습니다

for my $dir (grep -d, glob "$monitor_location/$clientid*") { 
    ... 
} 

Answer 2

나는 "일"글로브에 대한 있습니다. (그것은 단지 한 번만 (나를 위해) 사용하는 것으로 보인다. 나중에 같은 스크립트에서 다시 같은 디렉토리를 다시 볼 수 없다는 것을 의미한다.)

나는 readdir()을 선호한다. 이것은 확실히 길지만 WFM입니다.

chdir("$monitor_location") or die; 
open(DIR, ".") or die; 
my @items = grep(-d, grep(/^$clientid/, readdir(DIR))); 
close(DIR); 

@items의 모든 항목은 원하는 내용과 일치합니다.