使用Perl实现文件内容随机排序

本示例演示如何使用Perl编写一个脚本，读取文件内容并将其随机排序。这对于需要随机化文本数据的应用场景非常有用。

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

# 读取文件内容
my $file_path = 'example.txt';
open my $fh, '<', $file_path or die "无法打开文件: $!";
my @lines = <$fh>;
close $fh;

# 随机排序
@lines = sort { rand() <=> rand() } @lines;

# 输出到新文件
my $output_path = 'randomized_example.txt';
open my $out_fh, '>', $output_path or die "无法创建文件: $!";
print $out_fh @lines;
close $out_fh;

print "文件内容已随机排序，并保存到 $output_path\n";

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com