Mega Code Archive

 

Categories / Perl / String

 

Split words

#!/usr/bin/perl use warnings; use strict; my @words; push @words, split foreach(<>); print scalar(@words), " words: @words \n";