Estoy buscando alguna aclaración sobre chomp

Question

Estoy en el descanso de las clases en este momento y decidí pasar el tiempo aprendiendo Perl. Estoy trabajando con Beginning Perl (http://www.perl.org/books/beginning-perl/) y estoy terminando los ejercicios al final del capítulo tres.

Uno de los ejercicios solicitó que "almacene sus números telefónicos importantes en un hash." Escriba un programa para buscar números por el nombre de la persona ".

De todos modos, yo había llegado con esto:

#!/usr/bin/perl 
use warnings; 
use strict; 

my %name_number= 
(
Me => "XXX XXX XXXX", 
Home => "YYY YYY YYYY", 
Emergency => "ZZZ ZZZ ZZZZ", 
Lookup => "411" 
); 

print "Enter the name of who you want to call (Me, Home, Emergency, Lookup)", "\n"; 
my $input = <STDIN>; 
print "$input can be reached at $name_number{$input}\n"; 

Y simplemente no funcionaría. Seguí recibiendo este mensaje de error: (.) ​​

Uso del valor no inicializado en la concatenación o cuerda en hello.plx línea 17, línea 1

He intentado jugar con el código un poco más, pero cada "solución" parecía más compleja que la "solución" anterior. Finalmente, decidí verificar las respuestas.

La única diferencia entre mi código y la respuesta fue la presencia de chomp ($input); después de <STDIN>;.

Ahora, el autor ha usado chomp en el ejemplo anterior pero realmente no cubrió lo que chomp estaba haciendo. Por lo tanto, he encontrado esta respuesta en www.perlmeme.org:

La función chomp() eliminará (por lo general) cualquier carácter de nueva línea de el final de una cadena. La razón por la que decimos por lo general es que en realidad elimina cualquier carácter que coincide con el valor actual de $/ (la entrada separador de registro), y $/ por defecto a una nueva línea ..

---

De todos modos, mis preguntas son :

1. ¿Qué nuevas líneas se están eliminando? ¿Perl agrega automáticamente un "\n" a la entrada de <STDIN>? Estoy un poco confuso porque cuando leí "realmente elimina cualquier personaje que coincida con el valor actual de $/", no puedo evitar pensar "No recuerdo haber puesto $/ en ningún lugar de mi código".

2. Me gustaría desarrollar las mejores prácticas lo antes posible. ¿Es mejor incluir siempre chomp después de <STDIN> o hay situaciones en las que no es necesario?

Answer 1

<STDIN> lee hasta el final de la cadena de entrada, que contiene un salto de línea si pulsa retorno a entrar en él, que es probable que sí.

chomp quita la nueva línea al final de una cadena. $/ es una variable (como usted encontró, por defecto en la línea nueva) de la que probablemente no tenga que preocuparse; simplemente le dice a Perl qué es el 'separador de registros de entrada', lo que supongo significa que define cuánto lee <FILEHANDLE>. Puedes olvidarlo por ahora, parece un tema avanzado.Solo pretendo chomp domina una línea nueva posterior. Honestamente, nunca he oído hablar de $/ antes.

En cuanto a su otra pregunta, generalmente es más limpio que siempre muerda variables y agregue nuevas líneas según sea necesario más adelante, porque no siempre se sabe si una variable tiene una nueva línea o no; al masticar siempre las variables, siempre obtienes el mismo comportamiento. Hay escenarios en los que no es necesario, pero si no está seguro de que no puede dañarlo, chomp.

Espero que esto ayude!

Answer 2

Creo que la mejor práctica aquí es escribir:

chomp(my $input = <STDIN>); 

Aquí es rápido ejemplo de cómo chomp función ($/ significado se explica allí) obras de eliminación de un solo arrastra nueva línea (si lo hay):

chomp (my $input = "Me\n"); # OK 
chomp ($input = "Me"); # OK (nothing done) 
chomp ($input = "Me\n\n"); # $input now is "Me\n"; 
chomp ($input); # finally "Me" 

print "$input can be reached at $name_number{$input}\n"; 

Por cierto: Lo curioso es que también estoy aprendiendo Perl y alcancé hashes hace cinco minutos.

Answer 3

OK, a partir de 1), perl no agrega ningún \n a la entrada. Es usted quien presionó Ingrese cuando termine de ingresar el número. Si no especifica $/, se pondrá un valor predeterminado de \n (al menos, en UNIX).

A partir de 2), se necesitará chomp siempre que la entrada provenga del usuario, o siempre que quiera eliminar el carácter de final de línea (por ejemplo, leer un archivo).

Finalmente, el error que está obteniendo puede ser de perl que no entiende su variable dentro de las comillas dobles de la última print, porque tiene un carácter _. Trate de escribir la cadena de la siguiente manera:

print "$input can be reached at ${name_number{$input}}\n"; 

(tenga en cuenta el {} alrededor de la última variable).

Answer 4

Aunque puede ser obvio, todavía vale la pena mencionar por qué es necesario el chomp aquí.

El hash creado contiene 4 claves de búsqueda: "Me", "Home", "Emergency" y "Lookup"

Cuando se especifica $input de <STDIN>, que va contienen "Me\n", "Me\r\n" o alguna otra variante de final de línea, dependiendo de qué sistema operativo es siendo utilizado.

El error de valor no inicializado se produce porque la clave "Me\n" no existe en el hash. Y es por eso que se necesita la chomp:

my $input = <STDIN>; # "Me\n" --> Key DNE, $name_number{$input} not defined 
chomp $input;  # "Me" --> Key exists, $name_number{$input} defined 

Answer 5

<STDIN> es una notación atajo para readline(*STDIN);. Lo que readline() hace es leer el manejador del archivo hasta que encuentra el contenido de $/(también conocido como $ INPUT_RECORD_SEPARATOR) y devuelve todo lo que ha leído, incluido el contenido de $ /. Lo que hace chomp() es eliminar los últimos contenidos de $ /, si están presentes.

El contenido a menudo se denomina carácter de nueva línea, pero puede estar compuesto por más de un carácter. En Linux, contiene un carácter LF, pero en Windows, contiene CR-LF.

Ver:

perldoc -f readline 
perldoc -f chomp 
perldoc perlvar and search for /\$INPUT_RECORD_SEPARATOR/