?? fig05_06.pl
字號:
#!/usr/bin/perl
# Fig. 5.6: fig05_06.pl
# Using foreach loops with hashes.
@opinions = qw( what word is being used most in this array is
what this is used what most is is array what
word used is most is array what is this is array
what is is array this is most );
foreach ( @opinions ) {
++$hash{ $_ };
}
# display sorted by key in ascending order
print "Word\tFrequency\n";
print "----\t---------\n";
foreach ( sort keys( %hash ) ) {
print "$_\t", "*" x $hash{ $_ }, "\n";
}
# display sorted by frequency in descending order
print "\nWord\tFrequency\n";
print "----\t---------\n";
foreach ( sort { $hash{ $b } <=> $hash{ $a } } keys( %hash ) ) {
print "$_\t", "*" x $hash{ $_ }, "\n";
}
###########################################################################
# (C) Copyright 2001 by Deitel & Associates, Inc. and Prentice Hall. #
# All Rights Reserved. #
# #
# DISCLAIMER: The authors and publisher of this book have used their #
# best efforts in preparing the book. These efforts include the #
# development, research, and testing of the theories and programs #
# to determine their effectiveness. The authors and publisher make #
# no warranty of any kind, expressed or implied, with regard to these #
# programs or to the documentation contained in these books. The authors #
# and publisher shall not be liable in any event for incidental or #
# consequential damages in connection with, or arising out of, the #
# furnishing, performance, or use of these programs. #
###########################################################################
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -