Write a Perl program three_vowel_echo.pl that prints its command-line argument to standard output, similar to echo command in Shell, except arguments should be printed only if they contain 3 consecutive vowels.

Your program can assume vowels are there are 5 vowel {a, e, i, o, u} and their upper-case equivalents {A, E, I, O, U} Your answer must be Perl only. You can not use other languages such as Shell, Python or C.

You may not run external programs, e.g. via system or backquotes.

$ ./three_vowel_echo.pl Pompeii Rome Aeolian Florence

Pompeii Aeolian

$ ./three_vowel_echo.pl

$ ./three_vowel_echo.pl an anxious bedouin beauty booed an ancient zoologist anxious bedouin beauty booed

$ ./three_vowel_echo.pl abstemiously adenocarcinomatous Hawaiian Eoanthropus abstemiously Hawaiian Eoanthropus

Wh thi k i ki t i l t t d t t

When you think your program is working you can autotest to run some simple automated tests:

$ 2041 autotest three_vowel_echo

When you are finished working on this exercise you must submit your work by running give:

$ give cs2041 test07_three_vowel_echo three_vowel_echo.pl

Write a Perl program middle_lines.pl which prints the middle line(s) in a file.

If the file contains an odd number of lines it should print one line.

If the file contains an even number of lines it should print two lines.

If the file contains no lines it should print nothing.

You can assume one and only one file is given as argument and that it exists and it is readable.

For example:

Your answer must be Perl only. You can not use other languages such as Shell, Python or C.

You may not run external programs, e.g. via system or backquotes.

When you think your program is working you can autotest to run some simple automated tests:

$ 2041 autotest middle_lines

When you are finished working on this exercise you must submit your work by running give:

$ give cs2041 test07_middle_lines middle_lines.pl

:

Print the Line(s) from Stdin With the Largest Number

Write a Perl program largest_numbered_line.pl that read lines from standardinput until end-of-input. It should then print the line(s) which contained the largest number.

You can assume numbers do not contain white space, commas or other extra characters.

You can assume numbers are only in decimal format.

You can assume numbers are not in scientific/exponential format.

Lines may contain multiple numbers and they may contain any number of any character between the numbers.

If the largest number occurs on multiple lines you should print all of the lines in the order they occurred.

If no line contains a number, your program should print nothing.

Your answer must be Perl only. You can not use other languages such as Shell, Python or C.

You may not run external programs, e.g. via system or backquotes.

When you think your program is working you can autotest to run some simple automated tests:

$ 2041 autotest largest_numbered_line

When you are finished working on this exercise you must submit your work by running give:

$ give cs2041 test07_largest_numbered_line largest_numbered_line.pl