| 34 |
my $eword = htescape $param->{word}; |
my $eword = htescape $param->{word}; |
| 35 |
|
|
| 36 |
my $pattern = quotemeta normalize $param->{word}; |
my $pattern = quotemeta normalize $param->{word}; |
| 37 |
|
$pattern =~ s/\\-/[- ]/g; |
| 38 |
unless ($param->{cs}) { |
unless ($param->{cs}) { |
| 39 |
$pattern =~ s/([A-Za-z])/'[' . uc ($1) . lc ($1) . ']'/ge; |
$pattern =~ s/([A-Za-z])/'[' . uc ($1) . lc ($1) . ']'/ge; |
| 40 |
} |
} |
| 109 |
my $has_match; |
my $has_match; |
| 110 |
for_each_data_file (sub ($) { |
for_each_data_file (sub ($) { |
| 111 |
my $data_file_name = shift; |
my $data_file_name = shift; |
| 112 |
load_data_file ($data_file_name, my $exact_data = {}, my $pattern_data = {}); |
load_data_file ($data_file_name, my $exact_data = {}, my $pattern_data = {}, {}); |
| 113 |
$pattern_data = unescape_patterns ($pattern_data); |
$pattern_data = unescape_patterns ($pattern_data); |
| 114 |
$has_match |= print_matches ($data_file_name, $exact_data, $pattern_data); |
$has_match |= print_matches ($data_file_name, $exact_data, $pattern_data); |
| 115 |
}); |
}); |
Parent Directory
| 
Revision Log
| 
Patch