小编Mos*_*roy的帖子

这是我的测试代码:

#!/bin/perl
use strict;
use Array::Utils qw[array_minus];

sub sub1 {
    my @array1 = qw(1 2 3);
    my @array2 = qw(1 3 5);
    my @arrayMinus = array_minus(@array1, @array2);
    my @sortedArrayMinus = sort @arrayMinus;
    print "Result from array_minus + sort : " . join(",", @sortedArrayMinus) . "\n";
    my @sortedArrayMinus2 = sort array_minus(@array1, @array2);
    print "Result from sort array_minus : " . join(",", @sortedArrayMinus2) . "\n";
}

sub1("a","b");

当我运行它时,它给出以下结果:

Result from array_minus + sort : 2
Can't use string ("b") as an ARRAY …