bash – 是否有grep的反转：在长模式中找到短行？

pattern_file={
"The sun is shining!"
"It is a beautiful day!"}

lookup_file={
"Rain"
"Sun"
"Cloud"
"Beautiful"
"Shining"}

function file pattern

ideal_result_file={
"Sun","The sun is shining!"
"Beautiful","It is a beautiful day!","Shining","The sun is shining!"}

while read line
    do
      grep  -is $line pattern_file | sed 's/^/'"$line"',/g' >> result_file.csv
    done < lookup_file

使用哈希表或集合(取决于您的语言)以全部小写形式存储字典.对于每一行,将行拆分为基于非字母字符的单词数组.根据这些单词构建一个微型哈希表,转换为小写,以消除重复.遍历该微型哈希表中的每个单词,验证它是否存在于您的字典哈希表中.如果存在,则打印单词和整行.

这是Perl中的一个实现.

#! /usr/bin/perl

my $dictFile=$ARGV[0];
my $srchFile=$ARGV[1];
(-f $dictFile and -f $srchFile) or die "Usage: $0 dictFile srchFile";

# Load dictionary into hash table
my %dict=();
open($df,"<$dictFile") or die "Cannot open $dictFile";
while (<$df>) {
  chomp;
  $dict{lc($_)}=1;
}

# Search file for your dictionary words
open($sf,"<$srchFile") or die "Cannot open $srchFile";
my $lineNo=0;
while ($line=<$sf>) {
  $lineNo++;
  chomp($line);
  my %words=();
  my @sentence=split(/[^a-zA-Zà-?0-9]+/,$line);
  foreach $word (@sentence) {
    $words{lc($word)}=1;
  }
  while ( my ($key) = each(%words) ) {
    if ($dict{$key}) {
      print "$lineNo,$key,$linen";
    }
  }
}

pattern.txt

The sun is shining!
It is a beautiful day!

lookup.txt

Rain
Sun
Cloud
Beautiful
Shining

$./deepfind lookup.txt pattern.txt

1,shining,The sun is shining!
1,sun,The sun is shining!
2,beautiful,It is a beautiful day!

编辑：根据您的意见,这里是另一种方法来定义“句子”中的“单词”集.这准备了与字典中找到的任何序列的长度匹配的所有可行序列.

#! /usr/bin/perl
my $dictFile=$ARGV[0];
my $srchFile=$ARGV[1];
(-f $dictFile and -f $srchFile) or die "Usage: $0 dictFile srchFile";
# Load sequence dictionary into hash table
my %dict=();
my %sizes=();
open($df,"<$dictFile") or die "Cannot open $dictFile";
while (<$df>) {
  chomp;
  $dict{lc($_)}=1;
  $sizes{length($_)}=1;
}

# Search file for known sequences
open($sf,"<$srchFile") or die "Cannot open $srchFile";
my $lineNo=0;
while ($line=<$sf>) {
  $lineNo++;
  chomp($line);
  # Populate a hash table with every unique sequence that could be matched
  my %sequences=();
  while ( my ($size) = each(%sizes) ) {
    for (my $i=0; $i <= length($line)-$size; $i++) {
      $sequences{substr($line,$i,$size)}=1;
    }
  }
  # Compare each sequence with the dictionary of sequences.
  while ( my ($sequence) = each(%sequences) ) {
    if ($dict{$sequence}) {
      print "$lineNo,$sequence,$linen";
    }
  }
}