supporte-t-Perl UART ou port parallèle?

[davyzhu]

Bonjour tous,

Toute personne a l'usage de script Perl ou autre langage pour invoquer UART ou port parallèle?Est-ce que Perl possède libs, s'il a, comment invoquer ces bibliothèques?

BTW, pour le support libs, Perl, Python et Ruby, qui est le meilleur?

Observe,

DAVY

 

[nand_gates]

Perl supporte UART et port parallèleCode:

l'utilisation des appareils:: SerialPort;$ pass;

$ out;$ port = Device neuf:: SerialPort ( "/ dev/ttyS0");

$ port-> baudrate (9600);

$ port-> databits (8);

$ port-> stopbits (1);

$ port-> parité ( "none");$ i = 1;

while ($ i) (

$ pass = $ port-> write ( 'S $');

$ j = 0;

while ($ j == 0) (

port $ out = $> input;

if ($ out ne'') (

$ _ = $ Out;

if (m / S: /) (

$ string ='';

$ string = $ _;

string) # start end

elsif (m /: $ /) (

$ string = string $ $ out;

print $ string;

$ j = 1;

$ i ='';

) # traiter avec l'étoffe fin

else (

$ string = string $ $ out;

)

) # end si, pour lire) close # while $ j

) close # while $ i