将 .txt 文件放入哈希中并使用 perl 与单词数组进行比较 [关闭]

Question

我有一个 .txt 文件的文件夹，我想将其存储在哈希中。 然后将文件与特定单词数组进行比较。同时计算特定单词出现的次数。

Answer 1

请注意，我使用\p{Alpha}，因为它在技术上定义了一个词。您可以使用正则表达式添加数字或确保开头有一个 alpha 或您可能需要的任何内容。

还要注意，对于每行包含一个单词的文件，正则表达式是多余的，您应该省略它。只需chomp 在线和存储$_。

use 5.010; # for say
use strict;
use warnings;

my ( %hash );

sub load_words { 
    @hash{ @_ } = ( 0 ) x @_; return; 
}

sub count_words {
    $hash{$_}++ foreach grep { exists $hash{$_} } @_;
}


my $word_regex
    = qr{ (                # start a capture
            \p{Alpha}+     # any sequence of one or more alpha characters
            (?:            # begin grouping of
                ['-]         # allow hyphenated words and contractions
                \p{Alpha}+   # which must be followed by an alpha
            )*             # any number of times
            (?: (?<=s)')?  # case for plural possessives (ht: tchrist)
          )                # end capture
        }x;

# load @ARGV to do <> processing
@ARGV = qw( list of files I take words from );
while ( <> ) {
    load_words( m/$word_regex/g );
}
@ARGV = qw( list of files where I count words );
while ( <> ) { 
    count_words( m/$word_regex/g );
}

# take a look at the hash
say Data::Dumper->Dump( [ \%hash ], [ '*hash' ] );

Answer 2

不会为您编写代码，但您可以执行以下操作：

1. 循环所有文件（参见 glob()）
2. 循环每个文件中的所有单词（可能使用正则表达式或 split()？）
3. 根据所需单词的散列检查每个单词。如果存在，则增加一个“计数器”哈希值，如下所示： $hash{ $word }++ 或者您可以将所有单词存储在哈希中，然后获取您想要的单词..

或者...有很多方法可以做到这一点..

如果你的文件很大，你将不得不用另一种方式来做

Answer 3

所以我完成了使用我想找到的特定单词的数组...HAPPY DAYS :-)

#!/usr/bin/perl
#use strict;
use warnings;
my @words;

my @triggers=(" [kK]ill"," [Aa]ssault", " [rR]ap[ie]"," [dD]rug");
my %hash;

sub count_words {
    print "\n";
}

my $word_regex
    = qr{ (                # start a capture
            \p{Alpha}+     # any sequence of one or more alpha characters
            (?:            # begin grouping of
                ['-]         # allow hyphenated words and contractions
                \p{Alpha}+   # which must be followed by an alpha
            )*             # any number of times
          )                # end capture
        }x;

my @files;
my $dirname = "/home/directory";
opendir(DIR,$dirname) or die "can't opendir $dirname: $!";
while (defined($file = readdir(DIR))) {
     push @files, "$dirname$file";
}    # do something with "$dirname/$file" } 
closedir(DIR);
my @interestingfiles;

foreach $file (@files){

    open FILE, ("<$file") or die "No file";

    foreach $line (<FILE>){
        foreach $trigger (@triggers){
           if($line =~ /$trigger/g){
              push @interestingfiles, "$file\n";
           }
        }
    } 
   close FILE;
}
print @interestingfiles;