ruby/sample/occur.pl

while (<>) {
  for (split(/\W+/)) {
    $freq{$_}++;
  }
}

for (sort keys %freq) {
  print "$_ -- $freq{$_}\n";
}
Initial revision git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2 b2dd03c8-39d4-4d8f-98ff-823fe69b080e 1998-01-16 15:13:05 +03:00			`while (<>) {`
* sample/*: whitespace patch by Sergio Campama [Fixes GH-364] https://github.com/ruby/ruby/pull/364 git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@42086 b2dd03c8-39d4-4d8f-98ff-823fe69b080e 2013-07-20 17:41:02 +04:00			`for (split(/\W+/)) {`
			`$freq{$_}++;`
			`}`
Initial revision git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2 b2dd03c8-39d4-4d8f-98ff-823fe69b080e 1998-01-16 15:13:05 +03:00			`}`

			`for (sort keys %freq) {`
* sample/*: whitespace patch by Sergio Campama [Fixes GH-364] https://github.com/ruby/ruby/pull/364 git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@42086 b2dd03c8-39d4-4d8f-98ff-823fe69b080e 2013-07-20 17:41:02 +04:00			`print "$_ -- $freq{$_}\n";`
Initial revision git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2 b2dd03c8-39d4-4d8f-98ff-823fe69b080e 1998-01-16 15:13:05 +03:00			`}`