Commit | Line | Data |
---|---|---|
bba7b95e MW |
1 | <%perl> |
2 | $r->content_type("text/plain"); | |
3 | for (my $i = 0; $i < $n; $i++) { | |
4 | my @l = Deal::line; | |
5 | for (my $j = 0; $j < @l; $j++) { | |
6 | $j && $j % $nbox == 0 and $m->out(" "); | |
7 | $m->out($l[$j]); | |
8 | } | |
9 | $m->out("\n"); | |
10 | } | |
11 | </%perl> | |
12 | ||
13 | <%once> | |
14 | use Deal; | |
15 | </%once> | |
16 | ||
17 | <%args> | |
18 | $n => 50 | |
19 | $nbox => 4 | |
20 | </%args> |