--===============1994494241==
Content-Type: multipart/alternative; boundary=0016368e21c02dd19604720e612a
--0016368e21c02dd19604720e612a
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Hi, I am running PERL (v5.8.6) on a mac os x 10.4.11.I am a complete
newcomer to PERL
I was referring to the book
"PERL programming for the absolute beginner" by Jerry Lee Ford Jr.
I tried to run this code from the book (code is in green font)
#! /usr/bin/perl -w
#
# JokeMachine.pl
clear_the_screen();
$reply = " "
while ($reply ne 'yes') {
print 'Would you like to hear a joke? (yes/no): ' ;
chomp($reply = <STDIN>);
if($reply ne 'yes') {
print "\n Hum.......Perhaps you misunderstood \n\n";
}
}
clear_the_screen();
print "\n What disappears the moment you say it's name? \n\n";
chomp($reply = <STDIN>);
if (reply ne 'silence') {
print "\n Sorry. Wrong Answer\n";
} else {
print "\n Yes that is the right answer\n\n";
}
*and got the following error (Note: pe was on a line above rl JokeM.....)*
--0016368e21c02dd19604720e612a
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Hi, I am running PERL (v5.8.6) on a =A0mac os x 10.4.11.<div>I am a complet=
e newcomer to PERL</div><div>I was referring to the book</div><div>=A0"=
;PERL programming for the absolute beginner" by Jerry Lee Ford Jr.</di=
v>
<div>I tried to run this code from the book (code is in green font)</div><d=
iv>=A0<font class=3D"Apple-style-span" face=3D"'times new roman', s=
erif"><span class=3D"Apple-style-span" style=3D"background-color: rgb(255, =
255, 255);"><font class=3D"Apple-style-span" color=3D"#003300">#! /usr/bin/=
perl -w</font></span></font></div>
<div><font class=3D"Apple-style-span" face=3D"'times new roman', se=
rif"><span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 2=
55, 255);"><font class=3D"Apple-style-span" color=3D"#003300">#</font></spa=
n></font></div>
<div><font class=3D"Apple-style-span" face=3D"'times new roman', se=
rif"><span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 2=
55, 255);"><font class=3D"Apple-style-span" color=3D"#003300"># JokeMachine=
..pl</font></span></font></div>
<div><font class=3D"Apple-style-span" face=3D"'times new roman', se=
rif"><span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 2=
55, 255);"><font class=3D"Apple-style-span" color=3D"#003300"><br></font></=
span></font></div>
<div><font class=3D"Apple-style-span" face=3D"'times new roman', se=
rif"><span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 2=
55, 255);"><font class=3D"Apple-style-span" color=3D"#003300">clear_the_scr=
een();</font></span></font></div>
<div><font class=3D"Apple-style-span" face=3D"'times new roman', se=
rif"><span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 2=
55, 255);"><font class=3D"Apple-style-span" color=3D"#003300"><br></font></=
span></font></div>
<div><font class=3D"Apple-style-span" face=3D"'times new roman', se=
rif"><span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 2=
55, 255);"><font class=3D"Apple-style-span" color=3D"#003300">$reply =3D &q=
uot; "</font></span></font></div>
<div><span class=3D"Apple-tab-span" style=3D"white-space:pre"><font class=
=3D"Apple-style-span" face=3D"'times new roman', serif"><span class=
=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, 255);"><font=
class=3D"Apple-style-span" color=3D"#003300"> </font></span></font></span>=
<font class=3D"Apple-style-span" face=3D"'times new roman', serif">=
<span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, 2=
55);"><font class=3D"Apple-style-span" color=3D"#003300">while ($reply ne &=
#39;yes') =A0{</font></span></font></div>
<div><span class=3D"Apple-tab-span" style=3D"white-space:pre"><font class=
=3D"Apple-style-span" face=3D"'times new roman', serif"><span class=
=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, 255);"><font=
class=3D"Apple-style-span" color=3D"#003300"> </font></span></font></span=
><font class=3D"Apple-style-span" face=3D"'times new roman', serif"=
><span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, =
255);"><font class=3D"Apple-style-span" color=3D"#003300">print 'Would =
you like to hear a joke? (yes/no): =A0 ' ;</font></span></font></div>
<div><span class=3D"Apple-tab-span" style=3D"white-space:pre"><font class=
=3D"Apple-style-span" face=3D"'times new roman', serif"><span class=
=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, 255);"><font=
class=3D"Apple-style-span" color=3D"#003300"> </font></span></font></span=
><font class=3D"Apple-style-span" face=3D"'times new roman', serif"=
><span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, =
255);"><font class=3D"Apple-style-span" color=3D"#003300">chomp($reply =3D =
<STDIN>);</font></span></font></div>
<div><span class=3D"Apple-tab-span" style=3D"white-space:pre"><font class=
=3D"Apple-style-span" face=3D"'times new roman', serif"><span class=
=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, 255);"><font=
class=3D"Apple-style-span" color=3D"#003300"> </font></span></font></span=
></div>
<div><span class=3D"Apple-tab-span" style=3D"white-space:pre"><font class=
=3D"Apple-style-span" face=3D"'times new roman', serif"><span class=
=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, 255);"><font=
class=3D"Apple-style-span" color=3D"#003300"> </font></span></font></span=
><font class=3D"Apple-style-span" face=3D"'times new roman', serif"=
><span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, =
255);"><font class=3D"Apple-style-span" color=3D"#003300">if($reply ne '=
;yes') {</font></span></font></div>
<div><span class=3D"Apple-tab-span" style=3D"white-space:pre"><font class=
=3D"Apple-style-span" face=3D"'times new roman', serif"><span class=
=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, 255);"><font=
class=3D"Apple-style-span" color=3D"#003300"> </font></span></font></spa=
n><font class=3D"Apple-style-span" face=3D"'times new roman', serif=
"><span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 255,=
255);"><font class=3D"Apple-style-span" color=3D"#003300">print "\n H=
um.......Perhaps you misunderstood \n\n";</font></span></font></div>
<div><span class=3D"Apple-tab-span" style=3D"white-space:pre"><font class=
=3D"Apple-style-span" face=3D"'times new roman', serif"><span class=
=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, 255);"><font=
class=3D"Apple-style-span" color=3D"#003300"> </font></span></font></span>=
<font class=3D"Apple-style-span" face=3D"'times new roman', serif">=
<span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, 2=
55);"><font class=3D"Apple-style-span" color=3D"#003300"> =A0 =A0}</font></=
span></font></div>
<div><span class=3D"Apple-tab-span" style=3D"white-space:pre"><font class=
=3D"Apple-style-span" face=3D"'times new roman', serif"><span class=
=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, 255);"><font=
class=3D"Apple-style-span" color=3D"#003300"> </font></span></font></span>=
<font class=3D"Apple-style-span" face=3D"'times new roman', serif">=
<span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, 2=
55);"><font class=3D"Apple-style-span" color=3D"#003300">}</font></span></f=
ont></div>
<div><font class=3D"Apple-style-span" face=3D"'times new roman', se=
rif"><span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 2=
55, 255);"><font class=3D"Apple-style-span" color=3D"#003300">clear_the_scr=
een();</font></span></font></div>
<div><font class=3D"Apple-style-span" face=3D"'times new roman', se=
rif"><span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 2=
55, 255);"><font class=3D"Apple-style-span" color=3D"#003300"><br></font></=
span></font></div>
<div><font class=3D"Apple-style-span" face=3D"'times new roman', se=
rif"><span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 2=
55, 255);"><font class=3D"Apple-style-span" color=3D"#003300">print "\=
n What disappears the moment you say it's name? \n\n";</font></spa=
n></font></div>
<div><font class=3D"Apple-style-span" face=3D"'times new roman', se=
rif"><span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 2=
55, 255);"><font class=3D"Apple-style-span" color=3D"#003300">chomp($reply =
=3D <STDIN>);</font></span></font></div>
<div><span class=3D"Apple-tab-span" style=3D"white-space:pre"><font class=
=3D"Apple-style-span" face=3D"'times new roman', serif"><span class=
=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, 255);"><font=
class=3D"Apple-style-span" color=3D"#003300"> </font></span></font></span>=
<font class=3D"Apple-style-span" face=3D"'times new roman', serif">=
<span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, 2=
55);"><font class=3D"Apple-style-span" color=3D"#003300">if (reply ne '=
silence') {</font></span></font></div>
<div><span class=3D"Apple-tab-span" style=3D"white-space:pre"><font class=
=3D"Apple-style-span" face=3D"'times new roman', serif"><span class=
=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, 255);"><font=
class=3D"Apple-style-span" color=3D"#003300"> </font></span></font></span=
><font class=3D"Apple-style-span" face=3D"'times new roman', serif"=
><span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, =
255);"><font class=3D"Apple-style-span" color=3D"#003300">print "\n So=
rry. =A0Wrong Answer\n";</font></span></font></div>
<div><span class=3D"Apple-tab-span" style=3D"white-space:pre"><font class=
=3D"Apple-style-span" face=3D"'times new roman', serif"><span class=
=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, 255);"><font=
class=3D"Apple-style-span" color=3D"#003300"> </font></span></font></span>=
<font class=3D"Apple-style-span" face=3D"'times new roman', serif">=
<span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, 2=
55);"><font class=3D"Apple-style-span" color=3D"#003300">} else {</font></s=
pan></font></div>
<div><span class=3D"Apple-tab-span" style=3D"white-space:pre"><font class=
=3D"Apple-style-span" face=3D"'times new roman', serif"><span class=
=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, 255);"><font=
class=3D"Apple-style-span" color=3D"#003300"> </font></span></font></span=
><font class=3D"Apple-style-span" face=3D"'times new roman', serif"=
><span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, =
255);"><font class=3D"Apple-style-span" color=3D"#003300">print "\n Ye=
s that is the right answer\n\n";</font></span></font></div>
<div><span class=3D"Apple-tab-span" style=3D"white-space:pre"><font class=
=3D"Apple-style-span" face=3D"'times new roman', serif"><span class=
=3D"Apple-style-span" style=3D"background-color: rgb(255, 255, 255);"><font=
class=3D"Apple-style-span" color=3D"#003300"> </font></span></font></spa=
n><font class=3D"Apple-style-span" face=3D"'times new roman', serif=
"><span class=3D"Apple-style-span" style=3D"background-color: rgb(255, 255,=
255);"><font class=3D"Apple-style-span" color=3D"#003300">}</font></span><=
/font></div>
<div><b><span class=3D"Apple-style-span" style=3D"background-color: rgb(255=
, 255, 0);">and got the following error (Note: pe was on a line above rl Jo=
keM.....)</span></b></div><div><br></div><div><img src=3D"webkit-fake-url:/=
/C071DFA0-1E50-4DD1-9B04-208441A9A75D/image.tiff"></div>
<div><br></div><div><br></div>
--0016368e21c02dd19604720e612a--
--===============1994494241==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============1994494241==--
