http://www.perlmonks.org?node_id=1031318


in reply to Re: Relationship between chomp() operator and STDIN
in thread Relationship between Chomp() operator and STDIN

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 ?
  • Comment on Re^2: Relationship between chomp() operator and STDIN

Replies are listed 'Best First'.
Re^3: Relationship between chomp() operator and STDIN
by davido (Cardinal) on Apr 30, 2013 at 05:16 UTC

    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

[reply]
[d/l]
[select]
      Ahh thanks for the reply. The 'record separator' concept is new to me and it solved the question :)
[reply]
Re^3: Relationship between chomp() operator and STDIN
by Random_Walk (Prior) on Apr 30, 2013 at 05:17 UTC

    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

    [download]

    Output

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

    [download]

    Cheers,
    R.

    Pereant, qui ante nos nostra dixerunt!
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom