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

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

1.

use strict;
use warnings;
use 5.010;
say 'Enter some lines!';
my @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 = ); 
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";

Читайте еще:

Рубрики: Разработка