OT - Perl Question

[Matthew Seaman]

On Tue, Nov 11, 2003 at 02:57:04PM -0600, Darryl Hoar wrote:
> I am trying to learn perl.  I am going through a tutorial and have come
> across a syntax error I can't figure out.
> 
> Here's the code:
> 
> print "Please tell me your name: ";
> chop ($name=<STDIN>);
> 
> print "Please tell me your nationality: ";
> chop ($nation=<STDIN>);
> 
> if ( $nation eq "British"  or  $nation eq "New Zealand" )
> {
>  print "Hallo $name, pleased to meet you!\n";
> 
> }
> 
> when I try to run it, it generates a compile errors on the
> if line.
> 
> I know its the conditional test, but don't know how to fix
> it to be syntactically correct in perl.
> 
> Any help?

Works fine if you ask me:

    happy-idiot-talk:/tmp:% cat > foo.pl
    #!/usr/bin/perl -w
    
    print "Please tell me your name: ";
    chop ($name=<STDIN>);
    
    print "Please tell me your nationality: ";
    chop ($nation=<STDIN>);
    
    if ( $nation eq "British"  or  $nation eq "New Zealand" )
    {
     print "Hallo $name, pleased to meet you!\n";
    
    }
    
    happy-idiot-talk:/tmp:% perl -cw foo.pl 
    foo.pl syntax OK
    happy-idiot-talk:/tmp:% chmod +x foo.pl 
    happy-idiot-talk:/tmp:% ./foo.pl 
    Please tell me your name: Matthew
    Please tell me your nationality: British
    Hallo Matthew, pleased to meet you!
    
There was probably a typo in your original script which you've managed
to inadvertently fix when you copied your code into the e-mail.

	Cheers,

	Matthew


-- 
Dr Matthew J Seaman MA, D.Phil.                       26 The Paddocks
                                                      Savill Way
PGP: http://www.infracaninophile.co.uk/pgpkey         Marlow
Tel: +44 1628 476614                                  Bucks., SL7 1TH UK
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 187 bytes
Desc: not available
Url : http://lists.freebsd.org/pipermail/freebsd-questions/attachments/20031111/6ea133d6/attachment.bin