[PIPython] tradurre uno script dal perl

[ciccio a unical.it]

Salve ragazzi, 
premetto che non so nulla sul linguaggio perl, ma mi servirebbe tradurre uno 
script dal perl al python. 
Il perl script e' il seguente: 
 
#!/usr/bin/perl 
 
$file_list = "file_list.txt";     
$output_file = "summary.txt"; 
 
open(LIST,$file_list) or die "Can't open file: $!\n"; 
 
@results = (); 
$replicate = 0; 
 
while($file = <LIST>) { 
	open(FILE,$file) or die "Can't open file: $!\n"; 
 
	$line = <FILE>; 
	while($line = <FILE>) { 
		chop($line); 
		($a,$b,$c) = split /\s+/,$line; 
		$results[$a][$b][$replicate] = $c; 
	} 
	$replicate++; 
} 
 
open(OUT,">$output_file") or die "Can't open file: $!\n"; 
 
for $i (1 .. $#results) { 
	for $j ($i+1 .. $#results) { 
		print OUT "\n$i\t$j"; 
		for $k (0 .. $replicate) { 
			print OUT "\t$results[$i][$j][$k]"; 
		} 
	} 
} 
 
Dove file_list.txt contiene una lista di nomi di file che devono essere 
analizzati in successione. In particolare non riesco a capire come generare 
l'array $results[$a][$b][$replicate] = $c; in python ed il comando $replicate+
+; 
 
grazie in anticipo per ogni vostro suggerimento 
 
ernesto 

-------------------------------------------------
This mail sent through IMP: http://horde.org/imp/