Perl里map的初级用法记录

map的主要目的：把列表里的元素提取出来给$_,经过处理后再输出，跟grep的不同在于map能修改列表里的元素，而不是简单的查找。

my @input_numbers = (1, 2, 4, 8, 16, 32, 64);

my @result = map {
    my @digits = split //, $_;
    if ($digits[-1] = = 4) { @digits; }
    else { ( ); }
} @input_numbers;

相当于用了匿名子程序。