Help for this page
print map {"@$_\n" } sort {$a->[0] cmp $b->[0]} grep { @$_ > 1} values %words;
while (<>) { chomp; ... } print join "\n", sort grep {tr/ //} values %words; print "\n";
my @array = qw(one two three); ... print "@array"; # output : 'one two three' # it's the same as print join " ", @array;
#!/usr/bin/perl -w ... string: 5.40 array : 5.05 =cut
www.com | www.net | www.org
No recent polls found