Help for this page
my $switchdir = '/some/path'; my $host_hi = qr/some pattern of interest/; ... last if $hba_alias; # as soon as we find a match, we're done } print "match found in $found_name: $hba_alias";
my %seeking = ( $switchfqdn => { regex => qr/^fc.*?$hba_wwn/ }, ... warn "no matches in $filename for $seeking{$filename}{regex}\n +"; } }