Predefinição Discussão:Futebol/Classificação/18

Formato

{{Futebol/Classificação/18|
<!-- 1º lugar -->
| <!-- Equipa 1 --> | <!--P--> | <!--J-->
| <!--TOTAL--> <!--V--> | <!--E--> | <!--D--> | <!--G-->
| <!--CASA-->  <!--V--> | <!--E--> | <!--D--> | <!--G-->
| <!--FORA-->  <!--V--> | <!--E--> | <!--D--> | <!--G-->
<!-- 2º lugar -->
|   | |
| | | |
| | | |
| | | |
<!-- 3º lugar -->
|   | |
| | | |
| | | |
| | | |
<!-- 4º lugar -->
|   | |
| | | |
| | | |
| | | |
<!-- 5º lugar -->
|   | |
| | | |
| | | |
| | | |
<!-- 6º lugar -->
|   | |
| | | |
| | | |
| | | |
<!-- 7º lugar -->
|   | |
| | | |
| | | |
| | | |
<!-- 8º lugar -->
|   | |
| | | |
| | | |
| | | |
<!-- 9º lugar -->
|   | |
| | | |
| | | |
| | | |
<!-- 10º lugar -->
|   | |
| | | |
| | | |
| | | |
<!-- 11º lugar -->
|   | |
| | | |
| | | |
| | | |
<!-- 12º lugar -->
|   | |
| | | |
| | | |
| | | |
<!-- 13º lugar -->
|   | |
| | | |
| | | |
| | | |
<!-- 14º lugar -->
|   | |
| | | |
| | | |
| | | |
<!-- 15º lugar -->
|   | |
| | | |
| | | |
| | | |
<!-- 16º lugar -->
|   | |
| | | |
| | | |
| | | |
<!-- 17º lugar -->
|   | |
| | | |
| | | |
| | | |
<!-- 18º lugar -->
|   | |
| | | |
| | | |
| | | |
<!-- Notas -->
|
}}

Script

#!/usr/bin/perl

for ($i=1,$j=1; $i<18*15; $i+=15,$j++) {
  print "|---- style=\"text-align:center;\"\n";
  print "| align=\"right\" | ".$j."º || align=\"left\" | {{{".($i+1)."}}}\n";
  print "| {{{".($i+2)."}}} || {{{".($i+3)."}}} || {{{".($i+4)."}}} || {{{".($i+5)."}}} || {{{".($i+6)."}}}\n";
  print "| {{{".($i+7)."}}} || {{{".($i+8)."}}} || {{{".($i+9)."}}} || {{{".($i+10)."}}} || {{{".($i+11)."}}}\n";
  print "| {{{".($i+12)."}}} || {{{".($i+13)."}}} || {{{".($i+14)."}}} || {{{".($i+15)."}}}\n";
}