プレゼンする人を決める Perl スクリプト

presenters.pl

use strict;
use warnings;

use utf8;
use IO::File;
use Text::CSV_XS;
use List::Util qw/shuffle/;

binmode STDOUT, ':utf8';

my $file = IO::File->new('entry.csv', 'r') or die 'Could not open ' . $!;
binmode $file, ':utf8';

my $csv = Text::CSV_XS->new({ binary => 1 });

my @presenters = qw/飛び入り参加/; # 飛び入り参加

while (my $_ = $csv->getline($file)) {
    if ($. == 1) {
        next;
    }
    push @presenters, $_->[0];
}

$file->close;

@presenters =  shuffle @presenters;

my $number = 1;

print $number++ . '. ' . $_ . "\n" for @presenters;