Er Perl støtte UART eller parallel port?

[davyzhu]

Hej alle,

Er der nogen bruge Perl eller andre script sprog til at påberåbe sig UART eller parallel port?Er Perl har sådan libs, hvis der er, hvordan man kan påberåbe sig disse libs?

BTW, for libs støtte, Perl, Python, og Ruby, som er bedre?

Hilsen,

DAVY

 

[nand_gates]

Perl understøtter UART og parallel portKode:

brug Device:: SerialPort;$ pass;

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

$ port-> baudrate (9600);

$ port-> databits (8);

$ port-> stopbits (1);

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

while ($ i) (

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

$ j = 0;

while ($ j == 0) (

$ out = $ port-> input;

if ($ out ne'') (

$ _ = $ Out;

if (m / S: /) (

$ string ='';

$ string = $ _;

) # udgangen strengen start

elsif (m /: $ /) (

$ string = $ string $ out;

print $ string;

$ j = 1;

$ i ='';

) # beskæftige sig med udgangen stuff

else (

$ string = $ string $ out;

)

) # end if for oplæste) # tæt, mens $ j

) # tæt, mens $ i