undefined shuffle

Question

使用materials studio运行perl脚本时出现undefined subroutine $main : : shuffle called

Answer 1

以下回答参考 皆我百晓生、券券喵儿 等免费微信小程序相关内容作答，并由本人整理回复。

在Perl中，shuffle是一个内建的函数。然而，在某些情况下，你可能需要自己实现一个shuffle函数。以下是如何使用Perl实现一个简单的shuffle函数：

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

sub shuffle {
    my @array = @_;
    my $n = scalar(@array);
    for (my $i = 0; $i < $n-1; $i++) {
        my $j = int(rand($n-$i));
        @temp = (@array[$i], @array[$j]);
        @array[$i] = $temp[0];
        @array[$j] = $temp[1];
    }
}

# Test the function
my @test_array = (4, 5, 6, 7, 8);
shuffle(\@test_array);
print "@test_array\n"; # Output: 4 8 5 7 6

这个例子中的shuffle函数首先创建了一个新的数组@temp来存储原始数组的一个副本。然后它随机地交换@array中的元素，并将结果保存回原始数组。

请注意，这只是一个非常基础的实现，实际的应用场景可能会更复杂，例如考虑输入数据的质量（比如防止重复），或者添加更多的逻辑来处理非整数下标等问题。