Как получить значения из строки в Perl

Question

Я все еще очень новичок в Perl, и я хотел получить числа из строки и проверить, если они даже больше 10, но я застрял в том, где я должен получить значения из строки. Спасибо за вашу помощь!

Answer 1

Используйте оператор Diamond или readline .

#! /usr/bin/perl
use warnings;
use strict;

my @numbers = split ' ', <>;
for my $number (@numbers) {
    print "$number is even.\n" if $number > 10
                               && $number % 2 == 0;
}

• split превращает входную строку, например 12 13 14, в список чисел (12, 13 и 14).
• % - оператор по модулю. Четные числа имеют остаток от 0 при делении на 2.