Perl newbie: trying to find string in array of strings

Question

I need to match a string against an array of strings. The string that I am searching for should be able to contain wildcards.

#!/usr/bin/perl
#
##   disable buffered I/O which would lead
##   to deadloops for the Apache server
$| = 1; 
#
##   read URLs one per line from stdin
while (<>) {
    my $line = $_;
    my @array1 = ("abc","def","ghi");
    $found = 0;
    if (/$line/i ~~ @array1)
    {
        print "found\n";
    }
    else
    {
        print "not found\n";
    }

}

I test this script with the input of abc and it returns not found

perl ./mapscript.pl
abc
not found

Wooble · Accepted Answer · 2012-09-25 18:06:53Z

3

Your input has a newline at the end. Add:

chomp $line;

right after

my $line = $_;

answered Sep 25, 2012 at 18:06

Wooble

90.5k12 gold badges111 silver badges132 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Rohit Jain · Accepted Answer · 2012-09-25 18:11:08Z

2

Use chomp(my $input = $_) to remove newline instead of my $input = $_ inside your while..

** OOPs.. Didn't see that I'm posting Duplicate..

answered Sep 25, 2012 at 18:11

Rohit Jain

214k45 gold badges419 silver badges534 bronze badges

Comments

noodles · Accepted Answer · 2012-09-25 23:03:35Z

1

a newline at the end always exists using <>. see chomp

answered Sep 25, 2012 at 23:03

noodles

3271 gold badge4 silver badges15 bronze badges

Collectives™ on Stack Overflow

Perl newbie: trying to find string in array of strings

3 Answers 3

Comments

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related