Method 1: @int_array = (7,101,80,22,42); if ( grep $_ == 80, @int_array ) { print "80 exists in an array..."; }
Method 2:#!/usr/bin/env perl use strict; use warnings; use List::Util 'first'; my @int_array = qw( 7 101 80 22 42 ); my $number_to_check = 80; if ( first { $_ == $number_to_check } @int_array ) { print "$number_to_check exists in ", join ', ', @int_array; }
Method 3:
use List::MoreUtils qw{any}; print "found!\n" if any { $_ == 7 } (7,101,80,22,42);
No comments:
Post a Comment