>

perl을 처음 사용하고 있으며 여러 디렉토리에 .txt 확장자를 가진 파일에서 "Hello World"라는 단어를 추출 할 수있는 perl 스크립트 (또는 bash 스크립트)를 만들려고합니다. 더 명확하게하기 위해, 내 스크립트가 하위 디렉토리가있는 "/ home/pi/A"디렉토리 (폴더, 임시, 문서)에 있다고 가정합니다 (디렉토리는 나에게 알려지지 않음). / home/pi/A/Folder 디렉토리에는 .txt 파일이 있고/home/pi/Temp에는 .txt 파일도 있습니다. 내 코드는 다음과 같습니다

#!/usr/bin/perl -w
 opendir(DIR, ".");
 @files = grep(/\.txt$/,readdir(DIR));
 closedir(DIR);
 foreach $file (@files) {
    print "$file\n";
}

출력은

Hello World  
Hello World
Hello World
So on...

  • 답변 # 1

    디렉토리 A에서 .txt 파일을 찾아 "hello world"라는 단어가 있는지 확인합니다

    find A -type f -name "*.txt" -exec grep -h "hello world" {} +
    
    

관련 자료

  • 이전 compiling - 우분투 - mpfr 제거 및 소스에서 새 버전 설치
  • 다음 linux - dd를 사용하여 다른 파일 시스템에서 마운트 된 60MB의 파일 시스템을 덮어 썼습니다