Fred Flintstone 1/25/1975
James Wilfrid Vander Zanden 11/28/1930
Ebber B. Vander Zanden 9/8/1964
Abe Lincoln 2/12/1809
Jackie O 2/12/1964
Rhonda Jones 2/3/1964
Brad Vander Zanden 2/3/1964
Smiley 5/5/2005
Claudia 7/6/2006

bvz> perl birth.pl names.txt 5

Abe Lincoln 2/12/1809
James Wilfrid Vander Zanden 11/28/1930
Brad Vander Zanden 2/3/1964
Rhonda Jones 2/3/1964
Jackie O 2/12/1964

• No error checking is required.
• Each line of input is of the form:

  	   name mm/dd/yyyy
  	   

  where name may be one or more whitespace delimited words.
• If there is a tie between people with the same birthdate, then print the people in alphabetical order.
• Print exactly num people, even if there are more people with that same birthdate left.

For maximum credit your program must have the following features:

• It stores each person as a record using an anonymous hash
• It uses Perl's sort operator to sort these records.

1. bullets.pl: Takes a set of files given on the command line and prints all lines in each file that start with a number, followed by a period and one or more blank spaces. For example, "12. brad" is fine, but "12 brad", "12.brad", and "brad 12." are not. I do not need to know the file name that contains the line, just print the lines. A sample invocation might be:

   perl bullets.pl article1.txt article2.txt article3.txt
   

2. date.pl: Determines if a date given as a command line argument is in the form "Month Day, Year Era" and prints either "passed" or "failed" to indicate whether or not the date matches the pattern. The date should have the following format:
   • Month is any three letter word followed by a period (it does not have to be a valid month). The month should start with a capital letter.
   • Day is any one or two digit number (do not worry about it being between 1 and 31)
   • Year is a four digit number.
   • Era is either "AD" or "BC"

   For example, "Jan. 43, 1964 AD" is a valid date but "Feb. 4, 607" is not (missing an era and year is only 3 digits), nor is "February 2, 1855 BC" (month is too long), nor is "Wednesday Jun. 23, 1563 AD" (extraneous information). An example invocation might be:

   perl date.pl "Jan. 43, 1964 AD"
   

3. (7 points) substitute.pl: Read the named file from the command line and write a Perl substitution pattern that replaces all substrings of the form hh:mm:ss with substrings of the form hh hours, mm minutes, and ss seconds. For example, the substring "03:53:22" should become the substring "03 hours, 53 minutes, and 22 seconds".
   • Hours, minutes, and seconds should all be two digits.
   • Write the file back out to the same file that you read from.

   A sample invocation might be:

   perl substitute.pl raceresults.txt
   

   You may replace any pattern that matches the above description, even if it is embedded within another pattern, such as "03:18:19AM".

• For a location, the city is always required. One of either state or country must be the second element. The content of all three elements is a string.
• The quantity for elevation must be an integer greater than -200. The measure must be either feet or meters.
• There must be 1 and as many as 10 runways.
• The latitude coordinates must be an integer between -90 and 90 inclusive.
• The longitude coordinates must be an integer between -180 and 180 inclusive.
• The latitude and longitude minutes must both be decimal numbers between 0 and 60 with up to three decimal digits. The 0 is inclusive and the 60 is exclusive. There must be at least one digit to the left of the decimal point. For example, one must write 0.387 rather than .387.
• The allowable directions for latitude are S and N and for longitude are E and W.