<html>
<body>
<tt><br>
#!/usr/bin/perl -w <br>
# put -w on same line as #!perl<br><br>
$a="Are they good or evil?"; <br><br>
@good=qw(Neo Trinity Morpheus); <br><br>
@builder=qw(Oracle Architect);<br>
<br>
@bad=qw(Smith Agents Agent Twins); <br><br>
print ("Enter the name to see if you can trust them \n");
<br>
# brackets are not needed here - but it will still work.<br><br>
print "Enter the name to see if you can trust them
\n";<br><br>
print ("$a \n"); <br>
print ("What is Your Name? \n"); <br>
$name=<STDIN>; <br>
chomp $name; <br><br>
#if ($name=@good){ # This won't work as you are assigning<br>
# the array @good to the var $name, <br>
# not what you want, you want to test <br>
# if the $name is in @good so use grep<br><br>
print "Your are here to change everyone. \n" <br><br>
if ( grep("$name", @good) ) {<br><br>
</tt>print "Your are here to change everyone. \n" ;
# you missed the semi-colon<br>
<tt>} <br>
else { <br>
print "I might kb=know you but you ar not good\n";<br>
# }; don't need semi-colon after a block<br>
}<br>
<br>
... etc.<br><br>
<br>
PS don't forget that '=' assigns a value and (for numbers) '==' tests for
equality (for strings it's 'eq')<br><br>
<br>
<x-sigsep><p></x-sigsep>
<font face="Courier New, Courier" size=2>Spike Hodge<br><br>
UNIX Programmer<br>
</font></tt><font face="Courier New, Courier" size=2>M-Web
Technology<br>
</font><tt>021 596 8496<br>
082 901 5265<br><br>
</tt>Click here and make M-Web your homepage<br>
<a href="http://homepage.mweb.co.za/" eudora="autourl">http://homepage.mweb.co.za</a></body>
</html>