Foro - Perl en Español

por **alphabravo** » 2008-04-20 16:43 @738

Hola. ¿Cómo puedo en Perl abrir un puerto comm? Por ejemplo, en Visual Basic así abro el puerto, ¿cómo me funciona así en Perl? y el win32::serialport ¿debo de tenerlo instalado en Perl? Porque lo busqué como PMM install win32::serialport y no lo encuentro

¿o cual necesito?

Sintáxis: [ Descargar ] [ Ocultar ]

Using vb Syntax Highlighting

 MSComm1.CommPort = 5

 MSComm1.Settings = "115200,N,8,1"

 MSComm1.InputLen = 1024

 MSComm1.PortOpen = True

 MSComm1.Output = "ATZ" & vbCrColoreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y para enviar los datos lo realizo así en Visual Basic, ¿cómo lo puedo pasar a Perl?

Sintáxis: [ Descargar ] [ Ocultar ]

Using vb Syntax Highlighting

Dim PhoneNum, Message, i

MSComm1.Settings = "9600,N,8,1"

MSComm1.InputLen = 1024

MSComm1.RThreshold = 1

MSComm1.RThreshold = 1

PhoneNum = numero al que enviamos

PhoneNum1 = "+1111111111111"'

Message=prueba

MSComm1.Output = "AT+CMGF=1" & Chr$(13) 

MSComm1.Output = "AT+CSCA=" & Chr$(34) & PhoneNum1 & Chr$(34) & Chr$(13) 

MSComm1.Output = "AT+CMGS=" & Chr$(34) & PhoneNum & Chr$(34) & Chr$(13) 

MSComm1.Output = Message & Chr$(26) & Chr$(13)Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Manejando Puerto Comm con Perl

Manejando Puerto Comm con Perl

Publicidad

¿Quién está conectado?