Help for this page

Select Code to Download


  1. or download this
    
    use strict   ;
    ...
    
    print "". ( ( $count{ $_ } ) ? "$_ Found $count{ $_ } times.\n" : "$_ 
    +Not Found\n" ) foreach ( @array ) ;
    
  2. or download this
    54321 Found 1 times.
    54312 Not Found
    5999 Not Found
    54352 Not Found
    12345 Found 2 times.