thanks for the info,I was wondering if i had to use any perl cpan modules for map and join to work.

No installation necessary; those are all CORE.

---

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

It is probably not especially helpful to link to the documentation for the CORE namespace when describing Perl's built-in functions. The purpose of that namespace is somewhat esoteric and unlikely to answer any questions that that iamsachin might have had about join and map.

Better documentaton for Perl's built-in functions can be found in perlfunc.

toby döt ink

Global symbol "$string" requires explicit package name at map.pl line 13. Execution of map.pl aborted due to compilation errors. Use of uninitialized value $file in open at map.pl line 8. readline() on closed filehandle $fh at map.pl line 9.

I see that you have used @string but I see $string in die "Unable to find string: $string";

use strict;
use warnings;



find_string {
    my ($file, @strings) = @_;
    open my $fh, '<', $file;
    my $re = join "|", map quotemeta, @strings;
    while (<$fh>) {
        return 1 if /$re/;
    }
    die "Unable to find string: $string";
}

find_string('prepos.config', "testing","link","100K");
[download]

Sorry, my oversight. The offensive line is the die, which should be updated to read (perhaps):

die "Unable to find string(s): @strings";
[download]

---

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

I do not see that error; what is the exact code you have?

sub find_string {
    my ($file, @strings) = @_;
    open my $fh, '<', $file;
    while (<$fh>) {
        for my $string (@strings) {
            return 1 if /\Q$string/;
        }
    }
    die "Unable to find string: @strings";
}

find_string('filename', "testing","link","rd");
[download]

Of course the above should be amended to test that the open worked:

    open my $fh, '<', $file or die "File open fail ($file): $!";
[download]

---

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.