Szukam wyjaśnienia na temat chomp

Question

Jestem teraz na przerwie od zajęć i postanowiłem spędzić czas na nauce Perla. Pracuję z Beginning Perl (http://www.perl.org/books/beginning-perl/) i kończę ćwiczenia na końcu trzeciego rozdziału.

Jedno z ćwiczeń zadawało mi pytanie "Zapisuję twoje ważne numery telefonów w haśle. Napisz program, aby wyszukać numery według nazwiska osoby".

W każdym razie, ja wymyślił to:

#!/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"; 

A to po prostu nie będzie działać. Ciągle otrzymuję ten komunikat o błędzie: (.) ​​

wykorzystanie wartości niezainicjowanych w konkatenacji lub ciąg w hello.plx linii 17, wiersz 1

Próbowałem odtwarzanie z kodem nieco więcej, ale każde "rozwiązanie" wyglądało na bardziej złożone niż "rozwiązanie", które było przed nim. W końcu postanowiłem sprawdzić odpowiedzi.

Jedyną różnicą między moim kodem a odpowiedzią była obecność chomp ($input); po <STDIN>;.

Teraz autor użył wcześniejszego przykładu chomp, ale tak naprawdę nie wiedział, co robi chomp. Tak, znalazłem to odpowiedź na www.perlmeme.org:

Funkcja chomp() usunie (zazwyczaj) dowolny znak nowej linii z końcu łańcucha. Powodem mówimy zazwyczaj jest to, że faktycznie usuwa dowolny znak, który odpowiada aktualnej wartości $/ (rekord separatora wejście ) i $/ domyślne do nowej linii ..

---

W każdym razie, moje pytania są :

1. Jakie nowe linie są usuwane? Czy Perl automatycznie dołącza "\n" do wejścia z <STDIN>? Jestem trochę niejasna, ponieważ kiedy przeczytałem "to faktycznie usuwa jakąkolwiek postać, która pasuje do aktualnej wartości $/", nie mogę pomóc, ale myślę "nie pamiętam umieszczania $/ w moim kodzie."

2. Chciałbym opracować najlepsze praktyki tak szybko, jak to możliwe - czy najlepiej jest zawsze dodawać chomp po <STDIN> lub czy istnieją scenariusze, w których nie jest to konieczne?

Answer 1

<STDIN> czyta do końca ciągu wejściowego, który zawiera znak nowej linii, jeśli naciśniesz powrót do niego wejść, które prawdopodobnie nie.

chomp usuwa znak nowej linii na końcu łańcucha. $/ jest zmienną (jak można znaleźć, domyślną do nowej linii), która prawdopodobnie nie musisz się martwić; po prostu informuje perla, co to jest "separator rekordów wejściowych", co zakładam, że definiuje, jak daleko sięga <FILEHANDLE>. Na razie można o tym zapomnieć, wydaje się, że jest to zaawansowany temat.Po prostu udawaj, że chomp chomps z końcowego znaku nowej linii. Szczerze mówiąc, nigdy wcześniej nie słyszałem o $/.

Co do drugiego pytania, ogólnie rzecz biorąc czystsze jest zawsze, aby zawsze wyszukiwać zmienne i dodawać nowe wiersze w razie potrzeby później, ponieważ nie zawsze wiadomo, czy zmienna ma znak nowej linii; za pomocą zawsze chomping zmiennych zawsze masz takie samo zachowanie. Istnieją sytuacje, w których nie jest to konieczne, ale jeśli nie masz pewności, że nie zaszkodzi to chomp.

Mam nadzieję, że to pomoże!

Answer 2

myślę najlepszą praktyką jest, aby napisać:

chomp(my $input = <STDIN>); 

Oto krótki przykład jak chomp function ($/ znaczenie jest tam wyjaśnione) działa usuwając tylko jeden spływu nowej linii (jeśli występują):

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"; 

BTW: To zabawne, że uczę się również Perla i dotarłem do haszów pięć minut temu.

Answer 3

OK, od 1), perl nie dodaje żadnego \n na wejściu. To Ty uderzyłeś Wpisz po zakończeniu wprowadzania numeru. Jeśli nie podasz parametru $/, zostanie ustawione domyślne ustawienie \n (przynajmniej w systemie UNIX).

Od 2), chomp będzie potrzebny, ilekroć dane wejściowe pochodzą od użytkownika, lub kiedy chcesz usunąć znak końca linii (np. Odczyt z pliku).

Wreszcie, błąd, który otrzymujesz, może pochodzić od perla, który nie rozumie twojej zmiennej w podwójnych cudzysłowach ostatniego print, ponieważ ma znak _. Spróbuj napisać ciąg w następujący sposób:

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

(zanotować {} wokół ostatniej zmiennej).

Answer 4

Chociaż może być oczywiste, nadal warto wspomnieć o , dlaczego potrzebne jest tutajchomp.

Haszysz stworzony zawiera 4 klawisze odnośników: "Me", "Home", "Emergency" i "Lookup"

Kiedy $input jest określona z <STDIN>, będzie ona zawierać "Me\n", "Me\r\n" lub jakiś inny wariant kończących wiersz w zależności od systemu operacyjnego używane.

Błąd niezainicjowanej wartości pojawia się, ponieważ klucz "Me\n" nie istnieje w haszdzie. A to dlatego chomp jest potrzebne:

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

Answer 5

<STDIN> jest notacja short-cut dla readline(*STDIN);. Funkcja readline() odczytuje uchwyt pliku, dopóki nie napotka treści $/(aka $ INPUT_RECORD_SEPARATOR) i zwróci wszystko, co przeczytał, łącznie z zawartością $ /. To, co robi chomp(), usuwa ostatnią zawartość $ /, jeśli jest obecna.

Zawartość jest często nazywana znakiem nowej linii, ale może składać się z więcej niż jednego znaku. W systemie Linux zawiera znak LF, ale w systemie Windows zawiera CR-LF.

Patrz:

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