Perl의 디렉토리에서 파일을 구별하는 방법

파일 시스템을 탐색하고 발견한 내용을 기록하기 위해 Perl 스크립트를 작성한다고 가정해 보겠습니다. 파일 핸들을 열 때 실제 파일을 다루고 있는지 아니면 다르게 취급할 수 있는 디렉터리를 다루고 있는지 알아야 합니다. 파일 시스템을 계속해서 재귀적으로 구문 분석할 수 있도록 디렉터리가 필요합니다. 디렉토리에서 파일을 구별하는 가장 빠른 방법은 Perl의 내장 파일 테스트 작업을 사용하는 것입니다. Perl에는 파일의 다양한 측면을 테스트하는 데 사용할 수 있는 연산자가 있습니다. -f 연산자는 디렉터리나 다른 유형의 파일이 아닌 일반 파일을 식별하는 데 사용됩니다.

추천 참고 자료: "Perl Tutorial"

연산자를 테스트하려면 -f 파일을 사용하세요

#!/usr/bin/perl -w
$filename = '/path/to/your/file.doc';
$directoryname = '/path/to/your/directory';
if (-f $filename) {
print "This is a file.";
}
if (-d $directoryname) {
print "This is a directory.";
}

먼저 두 개의 문자열을 만듭니다. 하나는 파일을 가리키고 다른 하나는 디렉터리를 가리킵니다. 다음으로 $filename은 -f 연산자를 사용하여 테스트되며, 이는 파일인지 확인합니다.

이것은 "파일입니다"라고 인쇄됩니다. 디렉토리에 -f 연산자를 사용하면 아무 것도 인쇄되지 않습니다.

그런 다음 $directoryname에 대해 반대 작업을 수행하고 실제로 디렉터리인지 확인합니다. 이를 디렉토리 glob과 결합하여 어떤 요소가 파일이고 어떤 것이 디렉토리인지 정렬합니다.

#!/usr/bin/perl -w
@files = <*>;
foreach $file (@files) {
if (-f $file) {
print "This is a file: " . $file;
}
if (-d $file) {
print "This is a directory: " . $file;
}
}

이 기사는 Perl의 디렉토리와 파일을 구별하는 방법에 관한 것입니다. 도움이 필요한 친구들에게 도움이 되기를 바랍니다!

위 내용은 Perl의 디렉토리에서 파일을 구별하는 방법의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!