PREE HW#7 - 1/usr/local/bin/perl#This program prints a...

Info icon This preview shows pages 1–4. Sign up to view the full content.

View Full Document Right Arrow Icon
1. #!/usr/local/bin/perl #This program prints a string vertically $" = " \n"; $str = <STDIN>; @str = split(//,$str); print("@str") 2. #!/usr/local/bin/perl -w #This program prints a string with a space between each character $" = " \n"; $str = <STDIN>; @str = split(//,$str); $str = join(" ",@str); print($str); #End 3. #!/usr/local/bin/perl #This program reads a file made of two colums (numbers) and prints them in order while(<STDIN>) { ($num1, $num2) = split; if($num1 < $num2) { print("$num1 $num2 \n"); } else { print("$num2 $num1 \n"); } }
Image of page 1

Info icon This preview has intentionally blurred sections. Sign up to view the full version.

View Full Document Right Arrow Icon
#End 4. #!/usr/local/bin/perl #This program reads a file made of columns and prints the last column. while(<STDIN>) { @columns = split; print("$columns[$#columns] \n"); } #End 5. #!/usr/local/bin/perl #This program reads a file made of columns and swaps the first and the last columns. while(<STDIN>) { @columns = split; @columns[$#columns, 0] = @columns[0, $#columns]; print("@columns \n"); } #End 6. #!/usr/local/bin/perl -w #This program reads a file made of pathnames and extracts the tails. while(<STDIN>) { @path = split(/ \//); print(pop(@path)); } #End
Image of page 2
8. #!/usr/local/bin/perl # This program reverses each line in the input file.
Image of page 3

Info icon This preview has intentionally blurred sections. Sign up to view the full version.

View Full Document Right Arrow Icon
Image of page 4
This is the end of the preview. Sign up to access the rest of the document.

{[ snackBarMessage ]}

What students are saying

  • Left Quote Icon

    As a current student on this bumpy collegiate pathway, I stumbled upon Course Hero, where I can find study resources for nearly all my courses, get online help from tutors 24/7, and even share my old projects, papers, and lecture notes with other students.

    Student Picture

    Kiran Temple University Fox School of Business ‘17, Course Hero Intern

  • Left Quote Icon

    I cannot even describe how much Course Hero helped me this summer. It’s truly become something I can always rely on and help me. In the end, I was not only able to survive summer classes, but I was able to thrive thanks to Course Hero.

    Student Picture

    Dana University of Pennsylvania ‘17, Course Hero Intern

  • Left Quote Icon

    The ability to access any university’s resources through Course Hero proved invaluable in my case. I was behind on Tulane coursework and actually used UCLA’s materials to help me move forward and get everything together on time.

    Student Picture

    Jill Tulane University ‘16, Course Hero Intern