http://qs321.pair.com?node_id=1189923

Staralfur has asked for the wisdom of the Perl Monks concerning the following question:

#!/usr/bin/perl use strict; use warnings; use File::Find; my $dir = '/home/me/Desktop/tasks/Korpora/'; my $string = 'Alice '; open my $results, '>', '/home/me/Desktop/results.txt' or die "Unable to open results file: $!"; find(\&printFile, $dir); sub printFile { return unless -f and /\.html$/; open my $fh, '<',, $_ or do { warn qq(Unable to open "$File::Find::name" for reading: $!); return; }; while (<$fh>) { if (/\Q$string/) { print $results "$File::Find::name\n"; return; } } }

Dear Monks, I have a big directory with html articles, where I would like to search for several strings at the same time. For example for: Alice, Tom, Jamie, party, something. How can I do it with the module file find? I have already tried to search for $string1 and $string2 and also $string1&&string2, but it doesn't work. I am a newbie and haven't worked with file find before, but it seems to be the easiest way. Can you help me? Thanks in advance!