Onko Perl tukea UART tai rinnakkaisporttiin?

[davyzhu]

Hei kaikki,

Onko kukaan käyttää Perl tai muita ohjelmointikieliä vedota UART tai rinnakkaisporttiin?Onko Perl on tällainen libs, jos on, miten näitä libs?

BTW, että libs tukea, Perl, Python ja Ruby, joka on parempi?

Terveisin,

Davy

 

[nand_gates]

Perl tukee UART ja rinnakkaisporttiCode:

käyttää Device: SerialPort;$ pass;

$ ulos;$ port = uusi laite: SerialPort ( "/ dev/ttyS0");

$ satama-> baudrate (9600);

$ satama-> databits (8);

$ satama-> stopbits (1);

$ satama-> pariteetti ( "none");$ i = 1;

while ($ i) (

$ pass = $ satama-> kirjoita ( '$ S ");

$ j = 0;

while ($ j == 0) (

$ out = $ satama-> input;

if ($ pois ne'') (

$ _ = $ Ulos;

if (m / s: /) (

$ string ='';

$ string = $ _;

) # lopussa merkkijono alkaa

elsif (m /: $ /) (

$ string = $ string $ ulos;

print $ string;

$ j = 1;

$ i ='';

) # käsitellä loppuun tavaraa

else (

$ string = $ string $ ulos;

)

) # lopussa jos lukea) # lähellä kun $ j

) # lähellä kun $ i