ovntatar · December 16, 2013 15:14
diff --git a/Counting_words.pl b/Counting_words.pl
 #!perl

 # perl script.pl < file.txt

 use warnings;
 use strict;


 my %seen=();
 while(<>) {
 while (/(\w[\w'-]*)/g){
  $seen{lc $1}++;
 }
 }

 foreach my $word ( sort  { $seen{$b} <=> $seen{$a} } keys %seen) {
 printf "%d %s\n", $seen{$word}, $word;
 }
	#!perl

	# perl script.pl < file.txt

	use warnings;
	use strict;


	my %seen=();
	while(<>) {
	while (/(\w[\w'-]*)/g){
	$seen{lc $1}++;
	}
	}

	foreach my $word ( sort { $seen{$b} <=> $seen{$a} } keys %seen) {
	printf "%d %s\n", $seen{$word}, $word;
	}