"とりあえず即興でできればいい"コートの例

社内でチーム選定にPGが何かしらで割り振ってるらしいのですが、 都合により、割り振りがない時があったので、即興で書いてみた。

配列に突っ込んで配列の中身をランダムで並び替えて、よしなに表示すればいいかなー くらいの浅い考えで作ってみた。

use List::Util;

標準の配列操作できるモジュールを使用。 特に難しいことはなさそう。

my @data2 = List::Util::shuffle @data;

OK!shuffleで@dataの中をシャッフルして@data2に突っ込め！！！

print "$#data";
print "人\n";

何人いるんだろーねー。

if($#data == 15){
    以下人数によって表示出しわけ(じ・ん・り・き）

手動で配列の中を弄ったり、全然スマートじゃない。 ちょっとしたウォーミングアップ

use strict;
use warnings;
use List::Util;

my @data = qw (
    ひとのなまえ
    ひとのなまえ
    ひとのなまえ
    ひとのなまえ
    ひとのなまえ
    ひとのなまえ
    ひとのなまえ
    ひとのなまえ
    ひとのなまえ
    ひとのなまえ
    ひとのなまえ
    ひとのなまえ
    ひとのなまえ
    ひとのなまえ
    ひとのなまえ
    ひとのなまえ
    );



my @data2 = List::Util::shuffle @data;


    print "$#data";
    print "人\n";


    if($#data == 15){
    # 15人
    print "team1------------------------\n";
    print "$data2[0]\n";
    print "$data2[1]\n";
    print "$data2[2]\n";
    print "$data2[3]\n";
    print "$data2[4]\n\n";

    print "team2------------------------\n";

    print "$data2[5]\n";
    print "$data2[6]\n";
    print "$data2[7]\n";
    print "$data2[8]\n";
    print "$data2[9]\n\n";

    print "team3------------------------\n";

    print "$data2[10]\n";
    print "$data2[11]\n";
    print "$data2[12]\n";
    print "$data2[13]\n";
    print "$data2[14]\n\n";

    }

    elsif($#data == 14){
    # 14人
    print "team1------------------------\n";
    print "$data2[0]\n";
    print "$data2[1]\n";
    print "$data2[2]\n";
    print "$data2[3]\n\n";

    print "team2------------------------\n";

    print "$data2[4]\n";
    print "$data2[5]\n";
    print "$data2[6]\n";
    print "$data2[7]\n";
    print "$data2[8]\n\n";

    print "team3------------------------\n";

    print "$data2[9]\n";
    print "$data2[10]\n";
    print "$data2[11]\n";
    print "$data2[12]\n";
    print "$data2[13]\n\n";
    }

elsif($#data == 13){
    # 13人
    print "team1------------------------\n";
    print "$data2[0]\n";
    print "$data2[1]\n";
    print "$data2[2]\n";
    print "$data2[3]\n\n";

    print "team2------------------------\n";

    print "$data2[4]\n";
    print "$data2[5]\n";
    print "$data2[6]\n";
    print "$data2[7]\n";
    print "$data2[8]\n\n";

    print "team3------------------------\n";

    print "$data2[9]\n";
    print "$data2[10]\n";
    print "$data2[11]\n";
    print "$data2[12]\n\n";
    }

elsif($#data == 13){
    # 13人
    print "team1------------------------\n";
    print "$data2[0]\n";
    print "$data2[1]\n";
    print "$data2[2]\n";
    print "$data2[3]\n\n";

    print "team2------------------------\n";

    print "$data2[4]\n";
    print "$data2[5]\n";
    print "$data2[6]\n";
    print "$data2[7]\n\n";

    print "team3------------------------\n";

    print "$data2[8]\n";
    print "$data2[9]\n";
    print "$data2[10]\n";
    print "$data2[11]\n\n";
    }