Skip to Main Content
Learning Perl, 5th Edition
book

Learning Perl, 5th Edition

by Randal L. Schwartz, Tom Phoenix, brian d foy
June 2008
Beginner content levelBeginner
352 pages
11h 16m
English
O'Reilly Media, Inc.
Content preview from Learning Perl, 5th Edition

Answers to Chapter 3 Exercises

  1. Here’s one way to do it:

    print "Enter some lines, then press Ctrl-D:\n"; # or maybe Ctrl-Z
    @lines = <STDIN>;
    @reverse_lines = reverse @lines;
    print @reverse_lines;

    …or, even more simply:

    print "Enter some lines, then press Ctrl-D:\n";
    print reverse <STDIN>;

    Most Perl programmers would prefer the second one, as long as they don’t need to keep the list of lines around for later use.

  2. Here’s one way to do it:

    @names = qw/ fred betty barney dino wilma pebbles bamm-bamm /;
    print "Enter some numbers from 1 to 7, one per line, then press Ctrl-D:\n";
    chomp(@numbers = <STDIN>);
    foreach (@numbers) {
      print "$names[ $_ − 1 ]\n";
    }

    We have to subtract one from the index number so that the user can count from 1 to 7 even though the array is indexed from 0 to 6. Another way to accomplish this would be to have a dummy item in the @names array, like this:

    @names = qw/ dummy_item fred betty barney dino wilma pebbles bamm-bamm /;

    Give yourself extra credit if you checked to make sure that the user’s choice of index was in fact in the range 1 to 7.

  3. Here’s one way to do it if you want the output all on one line:

    chomp(@lines = <STDIN>);
    @sorted = sort @lines;
    print "@sorted\n";

    …or, to get the output on separate lines:

    print sort <STDIN>;
Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.
Start your free trial

You might also like

Learning Perl, 6th Edition

Learning Perl, 6th Edition

Randal L. Schwartz, brian d foy, Tom Phoenix
Beginning Perl

Beginning Perl

Curtis Ovid Poe
Learning Perl 6

Learning Perl 6

brian d foy
Mastering Perl

Mastering Perl

brian d foy

Publisher Resources

ISBN: 9780596520106Supplemental ContentErrata Page