Bonjour à tous,

Le programme ci-dessous a été écrit en PYTHON et j'aimerai le tranformer en PERL, quelqu'un pourrait-il m'aider à trouver les différences entre les 2 langages ?

Merci d'avance.
Adoc5.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
import TOTOFile
 
toto = TOTO.TOTOFile(r"D:\MDR\LOL.TOTO")
 
teach_ranges = ( (0x41, 171),       
                 (0x100, 320) )
 
 
idx = 1
for address, count in teach_ranges:
    for i in range(count):
        comment = ""
        if toto.has_key(address):
            value = toto.get(address)
            comment = ""
        else:
            comment = " NOP, to fill"
            value = 0x9D 
        print "teach_data[%d]=16#%x -- ($%X)%s"%(idx, value, address, comment)
        address += 1
        idx += 1