fork download 
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4.  
  5. # My favorite teams example
  6.  
  7. # Array of team names
  8. my @teams = ("New England Patriots", "Golden State Warriors", "New York Yankees", "Los Angeles Lakers", "Chicago Cubs");
  9.  
  10. # Hash of hashes holding team info
  11. my %myTeams = (
  12.     "New England Patriots" => { yearBorn => 1959,
  13.                                 owner => "Robert Kraft",
  14.                                 leader => "Bill Belichick",
  15.                               },
  16.     "Golden State Warriors" => { yearBorn => 1946,
  17.                                  owner => "Joe Lacob",
  18.                                  leader => "Steve Kerr",
  19.                                },
  20.     "New York Yankees" => { yearBorn => 1903,
  21.                             owner => "Hal Steinbrenner",
  22.                             leader => "Aaron Boone",
  23.                           },
  24.     "Los Angeles Lakers" => { yearBorn => 1947,
  25.                               owner => "Jeanie Buss",
  26.                               leader => "Darvin Ham",
  27.                             },
  28.     "Chicago Cubs" => { yearBorn => 1876,
  29.                        owner => "Tom Ricketts",
  30.                        leader => "David Ross",
  31.                      },
  32. );
  33.  
  34. # To print out sorted Team information ascending order
  35. print ("\n\nMy Team - sorted by Team Name ascending:\n\n");
  36. printf("%-25s \t%-6s \t%-20s \t%-20s \n", "Team", "Year", "Owner", "Leader");
  37.  
  38. my @sortedKeys = sort @teams;
  39.  
  40. for my $teamName (@sortedKeys) {
  41.     my $yearBorn = $myTeams{$teamName}{'yearBorn'};
  42.     my $owner = $myTeams{$teamName}{'owner'};
  43.     my $leader = $myTeams{$teamName}{'leader'};
  44.  
  45.     printf("%-25s \t%-6i \t%-20s \t%-20s \n", $teamName, $yearBorn, $owner, $leader);
  46.     print "\n";
  47. }
  48.  
  49. # To print out sorted Team information descending order
  50. print ("\n\nMy Team - sorted by Team Name descending:\n\n");
  51. printf("%-25s \t%-6s \t%-20s \t%-20s \n", "Team", "Year", "Owner", "Leader");
  52.  
  53. my @reverseKeys = reverse @sortedKeys;
  54.  
  55. for my $teamName (@reverseKeys) {
  56.     my $yearBorn = $myTeams{$teamName}{'yearBorn'};
  57.     my $owner = $myTeams{$teamName}{'owner'};
  58.     my $leader = $myTeams{$teamName}{'leader'};
  59.  
  60.     printf("%-25s \t%-6i \t%-20s \t%-20s \n", $teamName, $yearBorn, $owner, $leader);
  61.     print "\n";
  62. }
  63.  
  64. # HTML output
  65. print "\n\nHTML Page containing information on my Team:\n\n";
  66.  
  67. print "<html>\n";
  68. print "<head>\n";
  69. print "<title>My Favorite Sports Teams</title>\n";
  70. print "</head>\n";
  71. print "<body>\n";
  72. print "<H1>My Favorite Sports Teams</H1>\n";
  73. print "<table border=1>\n";
  74. print "<tr><th>Team</th><th>Year</th><th>Owner</th><th>Leader</th></tr>\n";
  75.  
  76. for my $teamName (sort keys %myTeams) {
  77.     my $yearBorn = $myTeams{$teamName}{'yearBorn'};
  78.     my $owner = $myTeams{$teamName}{'owner'};
  79.     my $leader = $myTeams{$teamName}{'leader'};
  80.  
  81.     print "<tr><td>$teamName</td><td>$yearBorn</td><td>$owner</td><td>$leader</td></tr>\n";
  82. }
  83.  
  84. print "</table>\n";
  85. print "</body>\n";
  86. print "</html>\n";
Success #stdin #stdout 0.02s 5356KB
comments (?)
stdin 
Standard input is empty
stdout 

My Team - sorted by Team Name ascending:

Team                      	Year   	Owner                	Leader               
Chicago Cubs              	1876   	Tom Ricketts         	David Ross           

Golden State Warriors     	1946   	Joe Lacob            	Steve Kerr           

Los Angeles Lakers        	1947   	Jeanie Buss          	Darvin Ham           

New England Patriots      	1959   	Robert Kraft         	Bill Belichick       

New York Yankees          	1903   	Hal Steinbrenner     	Aaron Boone          



My Team - sorted by Team Name descending:

Team                      	Year   	Owner                	Leader               
New York Yankees          	1903   	Hal Steinbrenner     	Aaron Boone          

New England Patriots      	1959   	Robert Kraft         	Bill Belichick       

Los Angeles Lakers        	1947   	Jeanie Buss          	Darvin Ham           

Golden State Warriors     	1946   	Joe Lacob            	Steve Kerr           

Chicago Cubs              	1876   	Tom Ricketts         	David Ross           



HTML Page containing information on my Team:

<html>
<head>
<title>My Favorite Sports Teams</title>
</head>
<body>
<H1>My Favorite Sports Teams</H1>
<table border=1>
<tr><th>Team</th><th>Year</th><th>Owner</th><th>Leader</th></tr>
<tr><td>Chicago Cubs</td><td>1876</td><td>Tom Ricketts</td><td>David Ross</td></tr>
<tr><td>Golden State Warriors</td><td>1946</td><td>Joe Lacob</td><td>Steve Kerr</td></tr>
<tr><td>Los Angeles Lakers</td><td>1947</td><td>Jeanie Buss</td><td>Darvin Ham</td></tr>
<tr><td>New England Patriots</td><td>1959</td><td>Robert Kraft</td><td>Bill Belichick</td></tr>
<tr><td>New York Yankees</td><td>1903</td><td>Hal Steinbrenner</td><td>Aaron Boone</td></tr>
</table>
</body>
</html>
https://ideone.com/ba9pGm
language:
Perl (perl 5.28.1)
created:
16 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!