Predefinição Discussão:Futebol/Resultados/20

Formato

{{Predefinição:Futebol/Resultados/20|
| <!-- 1ª equipa (manter por ordem alfabética!). Combinações eXeY: Xª equipa vs. Yª equipa -->
| <!--e1e2--> | <!--e1e3--> | <!--e1e4--> | <!--e1e5--> | <!--e1e6--> | <!--e1e7--> | <!--e1e8--> | <!--e1e9--> | <!--e1e10--> | <!--e1e11--> | <!--e1e12--> | <!--e1e13--> | <!--e1e14--> | <!--e1e15--> | <!--e1e16--> | <!--e1e17--> | <!--e1e18--> | <!--e1e19--> | <!--e1e20-->
| <!-- 2ª equipa -->
|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  | 
| <!-- 3ª equipa -->
|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  | 
| <!-- 4ª equipa -->
|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  | 
| <!-- 5ª equipa -->
|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  | 
| <!-- 6ª equipa -->
|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  | 
| <!-- 7ª equipa -->
|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  | 
| <!-- 8ª equipa -->
|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  | 
| <!-- 9ª equipa -->
|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  | 
| <!-- 10ª equipa -->
|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  | 
| <!-- 11ª equipa -->
|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  | 
| <!-- 12ª equipa -->
|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  | 
| <!-- 13ª equipa -->
|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  | 
| <!-- 14ª equipa -->
|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  | 
| <!-- 15ª equipa -->
|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  | 
| <!-- 16ª equipa -->
|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  | 
| <!-- 17ª equipa -->
|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  | 
| <!-- 18ª equipa -->
|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  | 
| <!-- 19ª equipa -->
|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  | 
| <!-- 20ª equipa -->
|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  | 
}}

Script

#!/usr/bin/perl

for ($i=1,$p=2; $i<=20; $i++) {
  print "|---- style=\"text-align:center;\"\n";
  print "| align=\"left\" style=\"font-weight:bold;background:#f9f9f9;\" | {{{".($p++)."}}} \n";
  for ($j=1; $j<=20; $j++) {
    if ($j != 1) { print "|"; }
    if ($i == $j) {
      print "| style=\"background:#0000ff\" |   \n";
    } else {
      #print "| style=\"font-size:85%;\" | {{{".($p++)."}}}\n"; }
      print "| {{{".($p++)."}}} ";
    }
  }
  print "\n";
}