Perl에서 검색, 생성 및 이동

Question

약 800 개의 html 파일 디렉토리가 있습니다. 각 파일을 검색하고 태그 사이에 텍스트를 반환하려고합니다. 그런 다음 해당 텍스트가 포함 된 디렉토리를 만들고 여기에 파일을 이동 (또는 복사)하려고합니다. 이것은 생각해봤을 때 꽤 쉬운 노력처럼 보였지만 필요한 모듈을 확인하는 데에도 많은 문제가 있습니다. File :: Find 및 glob, 쳐다 보았지만 파일 내에서 txt 정규식으로 구현하는 방법에 대해 정확히 모르겠습니다. (기본적으로 파일 이름이 아닙니다.) 나는 기본적으로 초보자이므로 모든 도움을 줄 것입니다. 감사하겠습니다. 미리 감사드립니다.

편집 는 명확히하기 :

읽기 디렉토리 = ~/나/프로젝트/~/나/프로젝트/모든 파일을 찾을 수 = ~ /.html$를 들어

을 : 나는 달성하기 위해 노력하고 무엇/I 각 파일

가 = DIV 클래스 = "RECIP"ID = "objectTo"> HTML 용 검색. (*)/DIV 모든 내용

. (*) 또는 IE john@doewww.com John Doe는 같은 이름의 디렉토리를 만듭니다.

xxxxxxxx@xxxxx.com 또는 John Doe 인스턴스가있는 모든 파일을 해당 디렉토리로 되돌려 이동합니다.

정말 도움을 주셔서 감사합니다!

Answer 1

File :: Find로 올바른 길을 가고 있습니다.

'wanted()'함수를 만들고 해당 함수 내에서 찾은 파일의 이름은 $File::Find::name이됩니다. 그런 다음 파일 핸들을 열고, 파일을 읽고, 태그를 검색하고, 찾고있는 데이터를 추출하고, 파일 핸들을 닫을 수 있습니다. File :: Find는 다음 파일로 이동합니다.

#! /usr/bin/perl 

use warnings; 
use strict; 
use File::Find; 

sub wanted { 
    my $file=$File::Find::name; 

    # if the file has the extension '.html' (case insensitive) ... 
    if($file =~ /\.html$/i) { 
     my $FH; 
     open($FH, '<', $file) or die "Could not open '$file' for reading: $!"; 
     local $/ = ''; 
     my $contents = <$FH>; # slurp file into $contents 
     # search $contents for the tags that you're looking for, 
     # 
     close $FH; 
    } 
} 

my @directories = (
     './htmlfiles' 
    , './www' 
    , './web' 
); 

find(\&wanted, @directories); 

경고 :이 코드는 perl -c를 통과,하지만 난 그것을 실행하지 않았습니다.

Answer 2

질문의 두 번째 부분은 HTML::Strip에서 텍스트의 HTML 마크 업 제거에 대해 확인하십시오.