Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Relationship between chomp() operator and STDIN

by Athanasius (Bishop)
on Apr 30, 2013 at 04:43 UTC ( #1031313=note: print w/replies, xml ) Need Help??


in reply to Relationship between Chomp() operator and STDIN

Hello tty1x, and welcome to the Monastery!

The call to <STDIN> reads a line of text from the keyboard — it doesn’t complete until the user enters the return character, which is echoed to the screen. Then chomp removes the trailing newline from the string $name which has been initialised with the user-entered text. chomp has no effect on STDIN, only on the string variable $name.

Hope that helps,

Athanasius <°(((><contra mundum Iustus alius egestas vitae, eros Piratica,

Replies are listed 'Best First'.
Re^2: Relationship between chomp() operator and STDIN
by tty1x (Novice) on Apr 30, 2013 at 05:01 UTC
    thanks for the reply, it cleared up :) Just another query. Is it that for every scalar variable there is a trailing newline ? Or is it that the input from STDIN contains a trailing newline ?

      A scalar variable can hold just about any reasonable value, and is not inherently newline terminated. However, when input comes from a file or keyboard, the newline is often the "record separator", and as such will be included in the input.

      Note, other record separators are also possible for files, and legal, though not as ubiquitous. perlvar mentions that $/ is used to set the input record separator for the currently selected input filehandle. If an input file contained records delimited by | (pipe character), you could set local $/='|';, for example, and in that case, chomp would chomp trailing | characters instead of trailing newlines.


      Dave

        Ahh thanks for the reply. The 'record separator' concept is new to me and it solved the question :)

      Scalar variables don't need to have a trailing newline. Unlike C where a string is normaly terminated with a nul, in Perl the string data structure stores the length of the string.

      What is happeneing with your code is this:

      As you type STDIN picks up each character and displays it to the screen a,a,a,\n are all displayed in turn.

      The \n causes the newline/cariage return on the screen and tells STDIN that a record is ready to hand off to your code.

      Now youre code runs chomp on $name and removes any instances of the input line seperator from the end of your string. By default the input line seperator is "\n", but you can change it by altering the value of $/

      finaly your code prints Thank you $name; # no newline in a $name anymore and exits. The OS gives you back a prompt.

      If you read from a file containing aaa\n instead of STDIN the output of your code would be the same, but as you are not using the keyboard to enter the data you would miss the initial line of aaa\n being shown on the display

      #!/usr/bin/perl print "Please enter your name\n"; chomp($name = <DATA>); # read a line from this file print "Thank you $name"; __DATA__ aaa A new line to show the above ends in \n

      Output

      R@Che ~/PerlTest $ ./name.pl Please enter your name Thank you aaaR@Che ~/PerlTest $

      Cheers,
      R.

      Pereant, qui ante nos nostra dixerunt!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1031313]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2019-07-24 07:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If you were the first to set foot on the Moon, what would be your epigram?






    Results (32 votes). Check out past polls.

    Notices?