fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. my %h = ();
  7.  
  8. foreach (<STDIN>) {
  9.     chomp;
  10.     $h{$_} += 1;
  11. }
  12.  
  13. while (my ($k, $v) = each %h) {
  14.     print "$k $v\n";
  15. }
  16.  
Success #stdin #stdout 0.01s 5380KB
comments (?)
stdin
copy 
Hoge
Fuga
Foo
Fuga
Foo
Hoge
Bar
Fuga
Piyo🐤
Piyo🐤
stdout
copy 
Foo 2
Piyo🐤 2
Bar 1
Fuga 3
Hoge 2
https://ideone.com/kfn4xI
language:
Perl (perl 5.28.1)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!