在Perl中改组数组的最佳方法是什么? [英] What’s the best way to shuffle an array in Perl?

问题描述

所以我有一个文件.假设它看起来像这样(实际上更长):

So I have a file. Let’s say it looks like this (it's actually longer):

1234
2134
3124
4123

改组该文件中的行的最佳方法是什么?

What is the best way to shuffle the lines in that file?

推荐答案

#!/usr/bin/env perl

use strict;
use warnings;

use List::Util qw/shuffle/;

my @arr = shuffle <>;

print @arr;

用法:

./script file.txt

这篇关于在Perl中改组数组的最佳方法是什么?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！