Perl user input scripts

[Reyez]

Hi all. I am currently working on the below but having real difficulties. Could someone give me some advice or some tips. I keep getting syntax errors each time it is run and the loop is not reiterating properly. (I am using Perl 5.8.2 build 808 MSI version).

Thanks

Reyez

#!!c:\perl\bin\perl.exe
 
print ("Please enter a four digit customer id:\n");
chomp ($customer_id = <>);
 
while $customer_id =~ /^[0-9]{4}$/);
{
 print("Your customer_id is $customer_id\n");
}
 
else
{
  print ("That is an invalid customer id.  Please try again\n");
  print ("Please enter a four digit customer id:\n");
  $customer_id = <>;
}
 
print ("Please enter a title:\n");
chomp ($title = <>);
 
while $title =~ /^[A-Z] [a-z] {1,3}$/);
{
 print("That is a valid title\n");
}
 
else
{
  print ("That is an invalid title.  You can only have Sir, Lord, Lady, Mr, Mrs, Miss or Ms. Please try again\n");
  $title = <>;
}
 
print ("Please enter a surname:\n");
chomp ($surname = <>);
 
while $surname =~ /^[A-Z] [a-z] {1-19}$/)
{
 print("That is a valid surname\n");
}
 
else
{
  print ("That is an invalid surname.  Please try again\n");
  $surname = <>;
}
 

[miller]

Greetings Reyez,

I suggest that you read the basics of perl programming. Your syntax is completely wonked.

http://www.perl.org/books/beginning-perl/

When you are ready, here is one way to get input like you were attempting to do:

use strict;
 
my $customer_id = '';
 
for (;;) {
    print "Please enter a four digit customer id:\n";
    chomp($customer_id = <>);
    last if $customer_id =~ /^\d{4}$/;
    print "That is an invalid customer id. Please try again\n";
}
 
print "ID is '$customer_id'\n";
 

- Miller

[KevinADC]

That perl course has really bad matrial or really bad instructors, or both.