Search Results

You don't need to create your own subroutine for that. Just use "grep":grep {$_ eq $entityName} @array_to_be_checked;

#! /usr/bin/perl -w
use strict;

sub getListenerName {
my $port = shift;
my @a = ();

open F, "< file";
while (<F>) {
chomp;
if (/([^ ]*).+?$port/) {
...