của Perl Uart hay hỗ trợ cổng song song?

[davyzhu]

Xin chào tất cả,

Có ai sử dụng hoặc Perl Script Ngôn ngữ khác để gọi Uart hoặc cổng song song?Perl hiện có như vậy libs, nếu có, làm thế nào để gọi những libs?

BTW, cho các libs hỗ trợ, Perl, Python, and Ruby, thì tốt hơn?

Kính trọng,

Davy

 

[nand_gates]

Perl UART và hỗ trợ cổng song songMã số:

sử dụng các thiết bị:: SerialPort;$ pass;

$ out;= $ cảng mới thiết bị:: SerialPort ( "/ dev/ttyS0");

$ cổng-> baudrate (9600);

$ cổng-> databits (8);

$ cổng-> stopbits (1);

$ cổng-> tính chẵn lẻ ( "none");$ i = 1;

trong khi ($ i) (

$ pass = $ cổng-> viết ( 'S $');

$ k = 0;

trong khi ($ j == 0) (

$ out = $ cổng-> đầu vào;

if ($ ra ne'') (

$ _ = $ Out;

nếu (m / S: /) (

$ string ='';

$ string = $ _;

) # kết thúc chuỗi bắt đầu

elsif (m /: $ /) (

$ string = $ string $ out;

in $ string;

$ j = 1;

$ i ='';

) # đối phó với những thứ kết thúc

else (

$ string = $ string $ out;

)

) # kết thúc, nếu cho đọc) # đóng cửa trong khi $ j

) # đóng cửa trong khi $ i