如果我想检查我的联合是 perl 中的列表还是字符串，该怎么办

Question

我需要用Perl写一个联合函数，我做的是这里，问题后面是代码。

sub union
{
    my @array1  = qw/a b c d/;
    my @array2  = qw/a f g h/;
    my %myunion = ();
    @myunion{ @array1, @array2 } = (1) x ( @array1 + @array2 );
    @myunion = keys %myunion;
    return @myunion;

    #if(){
    #    return @myunion;
    #}
    #else{
    #    return join ',', @myunion;
    #}
}
my @uString = union( [ 1, 2, 3 ], [ 2, 3, 4 ] );
my @uList   = union( [ 1, 2, 3 ], [ 2, 3, 4 ] );
print "$uString\n" 
print "@uList\n";

因此，如果没有我的命令部分，我的输出是随机顺序的 a b c d f g h，但我想让它们随机顺序为 1 2 3 4，就像我在 @uList 中写的输入一样。另外我需要检查调用者是否需要一个列表，如果是，它将以随机顺序返回 1 2 3 4，否则，它将返回一个以逗号分隔的联合字符串，该字符串应该是随机的 1,2,3,4命令。所以想知道if else语句的条件部分应该怎么做。

Answer 1

使用@_ 变量检索子程序参数。

要创建哈希键，您可以让值未定义。

#! /usr/bin/perl
use warnings;
use strict;

sub union {
    my ($aref1, $aref2) = @_;
    my %union;
    @union{ @$aref1, @$aref2 } = ();
    return keys %union
}

my @union = union([1, 2, 3], [2, 3, 4]);
print "@union\n";

或

my $union = join ',', union([1, 2, 3], [2, 3, 4]);
print "$union\n";