Duda con conexión con IRC
Publicado: 2014-01-06 16:00 @708
Hola, estoy haciendo un script en Perl que se conecta a un canal IRC por socket, el tema es que todo anda bien pero cuando quiero leer las líneas del canal cuando se habla es cuando me da problemas. El tema es que la expresión regular funciona pero es como si deformara la variable; simplemente se muestra doblada o en blanco. El código es este:
Como ven, solo leo un comando pero el argumento tiene espacios raros que no sé cómo eliminar. Probé con chomp y reemplacé los \r\n de la variable $pagina, pero sigue dando errores.
¿ Alguien me puede ayudar ?
Using perl Syntax Highlighting
- print $soquete "NICK $nick\r\n";
- print $soquete "USER $nick 1 1 1 1\r\n";
- print $soquete "JOIN $canal\r\n";
- print "[+] Online\n\n";
- while ( my $log = <$soquete> ) {
- chomp($log);
- if ( $log =~ m/:!crackit (.*)$/g ) {
- my $pagina = $1;
- print $pagina;
- }
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Como ven, solo leo un comando pero el argumento tiene espacios raros que no sé cómo eliminar. Probé con chomp y reemplacé los \r\n de la variable $pagina, pero sigue dando errores.
¿ Alguien me puede ayudar ?