perl/hello.pl · 411 字节 · 下载原文

# Perl 前端示例 1 —— Hello
# Perl frontend example 1 — Hello
#
# 跑法 / How to run:
#   vml run examples/perl/hello.pl
#
# Perl 的 `print` 可以一次给多个参数（照原样连着打，不加分隔）；双引号串里能插值。

my $who = "world";
print "Hello, $who!\n";

my @nums = (1, 2, 3, 4, 5);
my $sum = 0;
foreach my $n (@nums) {
    $sum = $sum + $n;
}
print "1+2+3+4+5 = $sum\n";