Jeff 'Japhy' Pinyan wrote:
On Aug 2, Alan C. said:
#!/perl/bin/perl -w
use strict;
#map & join from @ARGV into $pattern snipped
#!/perl/bin/perl -w
#Win32 d:\perl\bin\perl.exe
use strict;
@ARGV=qw/doc sort/;
my $pattern;
# next is the original it's without word boundary
#$pattern=join('',map
On Aug 2, Alan C. said:
>#!/perl/bin/perl -w
>use strict;
>#map & join from @ARGV into $pattern snipped
>my $pattern='(?=.*doc)(?=.*sort)';
>#print "$pattern";
>#directory files foreach file to be searched snipped
>if (s/^H=($pattern)/$1/io) {
> print "$fil:$_" ;
> }
>#end
>In the map a
Hi,
#!/perl/bin/perl -w
use strict;
#map & join from @ARGV into $pattern snipped
my $pattern='(?=.*doc)(?=.*sort)';
#print "$pattern";
#directory files foreach file to be searched snipped
if (s/^H=($pattern)/$1/io) {
print "$fil:$_" ;
}
#end
The above with the rest of my script finds doc
