On Saturday 17 November 2001 05:56 am, John W. Krahn rambled:
> Chris And Madonna Stalnaker wrote:
> > I have to start somewhere,
>
> When you read from STDIN on a terminal or console the line ends with a
> newline (\n) so you have to remove it.
Actually you don't HAVE to remove it, the vast majority of the time it is not
wanted, so chomp() is used to remove it, but it is not strictly necessary.
The presence or absence of the newline character would not affect whether or
not the script itself works, but you may not end up with the values you
expected.
> > This works:
> >
> > print "Enter your name: ";
> > $text = <STDIN>;
>
> chomp( $text = <STDIN> );
>
> > print "\nHello $text\n";
> > print "Please enter your password: ";
> > $password = <STDIN>;
>
> chomp( $password = <STDIN> );
>
> > if ($password == 21)
> > {
> > print"Correct\n";
> > }
> > else
> > {
> > print "wrong\n";
> > }
> >
> > This doesn't:
> >
> > print "Enter your name: ";
> > $text = <STDIN>;
>
> chomp( $text = <STDIN> );
>
> > print "\nHello $text\n";
> > print "Please enter your password: ";
> > $password eq <STDIN>;
eq is a comparison (specifacally for strings/characters, use == for numeric
values) operator, you probably wanted to assign <STDIN> to $password, so this
should have been written $password = <STDIN>
> chomp( $password = <STDIN> );
>
> > if ($password eq qwert)
Perl doesn't know what to do with qwert here since its not quoted i.e.
'qwert' or "qwert" ;-)
> if ($password eq 'qwert')
Here eq is doing its job :-)
> > {
> > print"Correct\n";
> > }
> > else
> > {
> > print "wrong\n";
> > }
> >
> > Why?
> >
> > if anyone replies Thank you, (flames expected!!)
>
> You're welcome.
>
>
> John
--
Michael D. Risser
Software Engineer/Linux Administrator
=============================
Machine Vision Products, Inc.
www.visionpro.com
[EMAIL PROTECTED]
-----BEGIN PGP PUBLIC KEY BLOCK-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: For info see http://www.gnupg.org
mQGiBDuCrxARBADE9hdFrBY4oQG8dnGZo6HV1pPXdiS1yVhDA1Hp0nTcmhsAdBtu
udBPkwwrVKATJYWQsRYBwbjE9WhyeGKXW95BkeUfDQo6YJBGBaeZSnfJhugdnoEv
+UB3c7McRenM6dN0oeDBWhcylTMpdUEbM9BG3pHUrKIh/TECDESWsS2PRwCgkGMy
HTSPVa3xzwAyt4C5FPINSkcEALHAysCwpYou3n1BOjjIR/lc2Wg9jMDxCL5Kf5qh
JIfvPu5Ew/NjkcTtoUrF8Ag4++3/D9jaHpFiUvp5xKtd/CjI+zQmWYvan3Qa5D6D
ZXNAvQzDpHMQ0PNed4lD6+a2unfMI22yh57WZ51nKajSGi3kbRd+564ZdM3BC3tU
30eaA/9uwrGaTCKUpku9Q7xOXRUTQOzPKMuUkGrHK84Fea8BhRYm3P/im6+mgKPu
OeAZuxTX3KD8WyTz3wPc3C9RVkcOeii90r8AbztYFa3jq7ryAxXuIAJClDyvmVxz
0i0/QsUG7Qmh3bSqSEE8j0wS1d+oCK0vys/kzPQu4BlSIZYlArQ9TWljaGFlbCBE
LiBSaXNzZXIgKFNvZnR3YXJlIEVuZ2luZWVyKSA8bWljaGFlbEB2aXNpb25wcm8u
Y29tPohXBBMRAgAXBQI7gq8QBQsHCgMEAxUDAgMWAgECF4AACgkQ/ikO9QMSg3cj
CwCfUw/OvLdfH3J6wDkgJkgwIZdJgmgAn1PAfxKjgiFXcteIpUtN6s988k1CuQEN
BDuCrxIQBADw8yDbbWdO9pvyUpdWjWxTBBFo9eQexJFFap4b9KcpWDJWawZ6S/HU
Cn+7zfbFb43AZa21mlon/vr7nwvlll7P/fa9S4kvk5twM8PcwM9O9yVxhOZeInXR
NUBzqjpK8FfRZgt1TaOz/CpdacNAJ9i2cShvH6wcCbHxGL9rjAu+IwADBgQA0t8p
1ivBcABEmK4o+r5+uXZoQ4jUzDDN5bZmddQOQhyyMX/JUeBX7gxQ7r2cYJHIlcN+
FCeqUHLmgQ/Ky+gze61Yr+FeEBJ4EPklkHWu3RoS4aKlEtU688nm+8Mfph6nYl+n
HzmaZjf5hz/mqvs5bzBCrw+xSSjNhJBrmj8qzIqIRgQYEQIABgUCO4KvEgAKCRD+
KQ71AxKDd2/JAJ9vnTOSbmB2XceA4gBaOsZg06s5lQCfYfRtXoy/Mbw82eS19NE/
w9t+V8g=
=J9H/
-----END PGP PUBLIC KEY BLOCK-----
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
