Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
print "Site $_ is $sites[$_-1]\n" for 1 .. 3;
print "\n";
print "Site $_ is $siteHash{$_}\n" for sort keys %siteHash;
  2. or download this
    Site 1 is www.site1.com
Site 1 is www.site1.com
...
Site website_1 is www.site1.com
Site website_2 is www.site2.com
Site website_3 is www.site3.com