🚀 go-pugleaf

Con chop pasa lo mismo que con chomp :-(

Creo que tengo instaladas las variables locales: en el set me aparece:

LANG=es_ES@euro
LANGUAGE=es_ES

Adem�s, si ejecuto el script en local no hay ning�n problema. El warning 
me lo da solo cuando lo ejecuto llamando el programa desde otra m�quina.

�como puedo saber si me funcionan bien las locales?

En el host desde el que hago la llamada tengo:

[root@host miguel]# more /etc/sysconfig/i18n
LANG="es_ES@euro"
LANGUAGE="es_ES@euro"
SUPPORTED="es_ES@euro:es_ES:es"
SYSFONT="lat0-sun16"
SYSFONTACM="iso15"

y donde se ejecuta el script tengo:

[root@server root]# more /etc/sysconfig/i18n
LANG="es_ES@euro"
LANGUAGE="es_ES@euro"
SUPPORTED="es_ES@euro:es_ES:es"
SYSFONT="lat0-sun16"
SYSFONTACM="iso15"



Reinoso G. wrote:

>  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.
> 
>