If an entry exist : exists « Hash « Perl

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » Hash » exists 




If an entry exist
    

#!/usr/bin/perl -w

use strict;

my @names = qw(
    A  E  I
    B  F  J
    C  G  K
    D  H  L
);

my %count;

foreach (@names) {
    if (exists $count{$_}) {
        $count{$_}++;
    } else {
        $count{$_} = 1;
    }
}

foreach (keys %count) {
    print "$_ \toccurs $count{$_} time(s)\n";
}

   
    
    
    
  














Related examples in the same category
1.Determine if a particular key exists
2.The exists function returns true if a hash key (or array index) has been defined, and false if not.
3.To tell if a given key name exists in a hash, you can use the exists operator.
4.Using 'if exists' to check the entry in hash
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.