Perlでの検索、作成、移動

Question

私は約800のhtmlファイルのディレクトリを持っています。私は各ファイルを検索し、タグ間でテキストを返そうとしています。次に、そのテキストを含むディレクトリを作成し、そこにファイルを移動（またはコピー）します。これは思ったときにはかなり簡単な努力のようでしたが、私はこれに必要なモジュールを特定することさえ問題があります。私はFile :: Findとglobを見てきましたが、ファイル名ではなくtxtの正規表現をどのように実装するのかは正確には分かりません。私は基本的にはperlの初心者ですので、感謝する。前もって感謝します。

EDIT は明確にする：

読むディレクトリ=〜/私/プロジェクト/〜/私/プロジェクト/すべてのファイルを見つける=〜/.html$については

を：私が達成しようとしていますどのような/ Iファイルごと

は、=のdivクラス= "レシプ" 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

質問の2番目の部分については、HTML::StripでテキストからHTMLマークアップを取り除いてください。