如何从perl中的一行获取值

Question

我在perl中仍然很新，我想从一行中获取数字，并检查它们是否在大于10时，但我仍然停留在必须从一行获取值的位置。谢谢你的帮助！

Answer 1

使用菱形运算符或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）。
• %是模运算符。当除以2时，偶数的余数为0。