🚀 go-pugleaf

 El otro d�a, Miguel Rodriguez nos estuvo contando:
> Tengo problemas con la ejecuci�n de perl.
> 
> Cuando ejecuto el c�digo en la m�quina local:
> 
> $mivar = <STDIN>;
> chomp($mivar);
> print "mivar es: $mivar y demas\n";

�si cambias chomp por chop tambi�n te pasa? Es por curiosidad pero podr�a 
tener que ver.


> 
> se ejecuta correctamente, pero cuando lo ejecuto desde otro equipo: 
> telnet server 43
> (donde est� escuchando en ese puerto con el programa fich.pl), entonces 
> me dice:
> 
> 
> Escape character is '^]'.
> perl: warning: Setting locale failed.
> perl: warning: Please check that your locale settings:
>          LANGUAGE = (unset),
>          LC_ALL = "en_US",
>          LC_MESSAGES = "en_US",
>          LC_TIME = "en_US",
>          LC_NUMERIC = "en_US",
>          LC_MONETARY = "en_US",
>          LC_COLLATE = "en_US",
>          LANG = "en_US"
>      are supported and installed on your system.
> perl: warning: Falling back to the standard locale ("C").
> misdatos

Ese servidor no tiene configurados los locales, a mi me daba un error 
parecido cuando instal� debian hasta que hice un locale-gen.

> 
> "mivar es: misdatos"
> y seguidamente sobreescribe:
> "y demas"
> quedando como resultado la l�nea:
> 
> "y demass: misdatos"

Eso casi podr�a ser problema del cliente telnet, pero no. Parece que al 
final de la l�nea hay un salto tipo windows: \r\n. El chomp elimina el 
�ltimo car�cter s� y s�lo s� es un '\n'. Lo es. As� que te deja la cadena 
acabada en un retorno de linea. Por eso al escribir lo siguente lo escribe 
encima.

Si quieres evitar eso podr�as o bien aplicar dos veces chop, o bien 
reasignar $/ a un car�cter \r. Y volver a llamar a la funci�n. Tras esto 
reasignarlo de nuevo a \n.

> 
> �porqu�?
> �tiene que ver con el mensaje de aviso de error que muestra al 
> principio? �donde puedo definir esas variables en perl?

Podr�a tener que ver porque $/ est� definido en el m�dulo ingl�s, parte 
del manual de perl dice as�:

       chomp   This safer version of "chop" removes any trailing
               string that corresponds to the current value of $/
               (also known as $INPUT_RECORD_SEPARATOR in the
               "English" module).  It returns the total number of
               ...


Saludos.

-- 
�������������������������������������������������������������������������
��  Reinoso G.  EA4BAO / MiKatp             r einoso.bao@wanadoo.e s   ��
��  http://perso.wanadoo.es/reinoso.bao                                ��
�������������������������������������������������������������������������