arrays - 如何在数组元素之间打印 'AND'？

Question

如果我有一个名称如下的数组。

如何打印“Hi joe and jack and john”？

当数组中只有一个名称时，该算法也应该有效。

#!/usr/bin/perl

use warnings;
use strict;

my @a = qw /joe jack john/;

my $mesg = "Hi ";

foreach my $name (@a) {

    if ($#a == 0) {
    $mesg .= $name;
    } else {
    $mesg .= " and " . $name;
    }
}

print $mesg;

Answer 1

通常我们使用数组连接方法来实现这一点。这里伪代码:

@array = qw[name1 name2 name2];
print "Hey ", join(" and ", @array), ".";