Works ok for me...
print "Content-type: text/plain\n\n";
my @array = ( [1,2,3], [4,5,6], [7,8,9] );
for (@array) {
if (grep { /^5$/ } @$_) {
my $i = grep { /^5$/ } @$_;
print "Found: 5 - Element $i\n";
}
else {
print "Skipping...\n";
}
}
Code:
#!/usr/bin/perl print "Content-type: text/plain\n\n";
my @array = ( [1,2,3], [4,5,6], [7,8,9] );
for (@array) {
if (grep { /^5$/ } @$_) {
my $i = grep { /^5$/ } @$_;
print "Found: 5 - Element $i\n";
}
else {
print "Skipping...\n";
}
}