내 perl 스크립트에서 출력되는 파일 및 디렉토리에 대한 유닉스 그룹 권한을 설정 하시겠습니까?

Question

내가 갖고있는 스크립트는 한 가지 예외 만 제외하고 내가 원하는 방식으로 작동합니다. 내가 perl 스크립트에서 만든 디렉토리와 파일에 대한 유닉스 그룹 권한을 자동으로 설정할 수 있기를 바란다.

이 가능하거나, 난 그냥 내 스크립트를 실행 한 후

chgrp <group> <directory> 

에 의존해야합니까?

Answer 1

당신은 같은 펄의 chown 기능을 사용할 수 있습니다 : 해당 문서에 명시된대로 당신은, 그러나이 작업을 수행 할 권한을해야 할 수도 있습니다

# Get the GID as a number 
my $gid = getgrnam("group"); 

# Change the ownership 
chown -1, $gid, $dir; # Or $file or @list_of_files depending on your need 

. http://perldoc.perl.org/functions/chown.html