■こんなCGI作ってください■ Part.2

[0742 脱帽 ◆newsGKH3Qo NG NG]

エロゲのDVDバックアップしながら作りました

#!/usr/bin/perl
use strict;
use vars qw{@buf $path $first};
use List::Util qw{shuffle};

$path = './dat/log.dat';

open IN, $path;
@buf = <IN>;
close IN;

$first = shift @buf;

@buf = shuffle @buf;

open OUT, ">$path";
print OUT $first;
print OUT @buf;
close OUT;

__END__