ruby--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 07:13:05 -05: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 09: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 07:13:05 -05: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 09: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 07:13:05 -05:00			`}`