Perl: map print

来源:互联网 发布:msn软件下载 编辑:程序博客网 时间:2024/06/05 18:50
#! perl -w$/ = "/n";my @array = qw/a b c d e f/;map {print} @array; #eqivalent to "print foreach @array" "print @array"foreach (@array) { print;}print foreach @array;print @array;
原创粉丝点击