Изучаем Perl. Упражнения к главе 3.

Перечитывая в 3-ий раз "Изучаем Perl" решил пройтись по всем упражнениям, которые там приводятся. Бубликую здесь свои варианты решения.

п.с. Парсер блогера вырезает строку STDIN, заключенную в знаки <> =(


1.

use strict;
use warnings;
use 5.010;

say 'Enter some lines!';

my @lines = 'STDIN'; #  STDIN в ><
@lines = reverse @lines;

say "Reversed lines is @lines";

2.

use strict;
use warnings;
use 5.010;

my @names = qw/Perl Php Python Ruby C++ C Shell/;

say 'Enter some numbers:';

chomp(my @numbers = 'STDIN'); # STDIN в ><

say 'You favorite languages is:';

foreach(@numbers){
    say $names[$_] if $names[$_];   
}

3.

use strict;
use warnings;
use 5.010;

say 'Input some strings!';

chomp(my @strings = 'STDIN');

@strings = sort @strings;

say "Sorted strings is: @strings";