Using perl Syntax Highlighting
if ( keys %combinaciones ) {
foreach my $combinacion ( sort { $combinaciones{$b} <=> $combinaciones{$a} } keys %combinaciones ) {
print "$combinacion\n";
my @combo = split('\|', $combinacion);
if (! $fila { $combo[0]} ) {
$fila {$combo[0]}=$fila;
$sheet->Cells($fila,1)->{Value} = "$combo[0]";
$fila++;
}
if (!$columna { $combo[1]} ){
$columna {$combo[1]}=$columna;
$sheet->Cells(1,$columna)->{Value} = "$combo[1]";
$columna++;
}
$sheet->Cells($fila{$combo[0]},$columna{$combo[1]})->{Value} += "$combinaciones{$combinacion}";
}
}
foreach my $combinacion ( sort { $combinaciones{$b} <=> $combinaciones{$a} } keys %combinaciones ) {
print "$combinacion\n";
my @combo = split('\|', $combinacion);
if (! $fila { $combo[0]} ) {
$fila {$combo[0]}=$fila;
$sheet->Cells($fila,1)->{Value} = "$combo[0]";
$fila++;
}
if (!$columna { $combo[1]} ){
$columna {$combo[1]}=$columna;
$sheet->Cells(1,$columna)->{Value} = "$combo[1]";
$columna++;
}
$sheet->Cells($fila{$combo[0]},$columna{$combo[1]})->{Value} += "$combinaciones{$combinacion}";
}
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Si alguien observa algún error, por favor comunicadmelo.
Un saludo.