if ($str eq $var)

Which is not a regex match, but an exact string comparison.

I'd also advise you to use strict; use warnings; in your code, and post code that we can actually run (ie not containing references to config files we don't know about, modules we don't have access to etc.), and reduce it to the part that's actually relevant.

You can use Data::Dumper to inspect your data structures.

Oops, my bad. I did use regular expression first, because I'd be comparing IP address from trap to values in an array in format <ip address>,<server>. So I had used:

      if ($str =~ /^$var/)
[download]

which didn't work either. I'm already using  use strict; use warnings;. I'm again pasting code that one can run:

use strict;
use warnings;

my %hashArray;
my $str;
my @bigArray;

# Adding to an array in format <ip,server>
push (@bigArray, "62.40.40.10,ServerOne");
push (@bigArray, "62.40.40.20,ServerTwo");
push (@bigArray, "62.40.40.30,ServerThree");

# Adding to hash
$hashArray{"62.40.40.10"} = "ServerOne";
$hashArray{"62.40.40.20"} = "ServerTwo";
$hashArray{"62.40.40.30"} = "ServerThree";

my ($key, $value, $idx);

foreach $str (@bigArray)
{
    print $str . "\n"; # This prints all values correctly
}

while (($key, $value) = each (%hashArray)) {
    print "$key-$value\n";
}
# above while statement too prints all correctly

my $var = "62.40.40.30";

print "var: $var\n";

## Please note that following part of code (foreach, if 
## exists, while) doesn't work
## It doesn't give any error; simply says no match
foreach $str (@bigArray)
{
    print "$str\n";
    if ($str =~ /^$var/)
    {
      print "IP address matched. Proceed to log trap!\n";
      last;
    }
    else
    {
      print "Match not found.\n";
    }
}
print "After for\n";
if (exists ($hashArray{$var}))
{
    print $var . " exists in hash!\n";
}
while (($key, $value) = each (%hashArray)) 
{
    print "KEY: $key\n";
    if ($key eq $var)
    {
        print "IP Matches!\n";
    }
}
[download]

I hope this helps... Thanks.

my $var = "62.40.40.30";

print "var: $var\n";

## Please note that following part of code (foreach, if 
## exists, while) doesn't work
## It doesn't give any error; simply says no match
foreach $str (@bigArray)
{
    print "$str\n";
    if ($str =~ /^$var/)
    {
      print "IP address matched. Proceed to log trap!\n";
      last;
    }
    else
    {
      print "Match not found.\n";
    }
}
[download]

You iterate over all values in the array. Since one of the items in the array matches the regex, you get one line of output saying IP address matched. Proceed to log trap, and for all items before the match you get the output that no match was found.

If you don't want that output even though you can match later on, then don't print it. Only print it if the iteration is finished, and you didn't find any matches.

if (exists ($hashArray{$var}))
{
    print $var . " exists in hash!\n";
}
while (($key, $value) = each (%hashArray)) 
{
    print "KEY: $key\n";
    if ($key eq $var)
    {
        print "IP Matches!\n";
    }
}
[download]

A hash is a better approach to what you try to do, but you do it overly complicated. Instead of iterating over it, you can get the value straigt out of the hash:

if (exists ($hashArray{$var})){
   print "$var exists in the hash.\n";
   print "Its value is $hashArray{$var}\n";
}
[download]

Whenever you iterate over a hash to see if the key is in there, you're doing something wrong.

So with all three methods you actually find the IP you are looking for (and using the hash access is the easiest and most straight forward).

Perl 6 - links to (nearly) everything that is Perl 6.

truptivk:

A few notes:

• On line 17, you needn't use the scalar operator on the array as you're assigning to a scalar already.
• You could simplify the first section of code by combining loops and removing unnecessary temporary variables, something like:

my $configFile = "servers.conf";
my (@allServers, @bigArray);

# Process file line by line rather than reading all lines into an arra
+y
# and iterating over the array
open (DAT, $configFile);
while (my $str = <DAT>) {

    # the action of your first loop:
    next if $str =~ /^\w/;

    # the action of your second loop:
    my ($server, $ip) = split ("=", $str);
    $ip =~ s/^\s+//;
    $ip =~ s/\s+$//;

    push (@bigArray, $ip . "," . $server);
    $hashArray{$ip} = $server;
}
close DAT;

my $size = @allServers;
[download]

...roboticus