RE: Input Regex (error checking)

[Hanson, Rob]

chomp (my $ans=<STDIN>);

$ans =~ /^\d{6}$/ or die "Bad input!";

# ...or...

unless ($ans =~ /^\d{6}$/) {
  # blah, blah, blah
}

# Or loop until correct input received...

my $ans = undef;
do {
    print "Invalid response\n" if defined $ans;
    print "Enter your answer: ";
    chomp($ans = <STDIN>);
} while $ans !~ /^\d{6}$/;

print "$ans\n";


Rob

-----Original Message-----
From: Ned Cunningham [mailto:[EMAIL PROTECTED]
Sent: Monday, August 18, 2003 1:08 PM
To: '[EMAIL PROTECTED]'
Subject: Input Regex (error checking)


HI,

What would be the best way to check for data integrity of an input?

Chomp (my $ans=<STDIN>);


#first make sure data is 6 digits
  make sure length is 6

Thankx

Ned Cunningham
POS Systems Development
Monro Muffler Brake
200 Holleder Parkway
Rochester, NY 14615
(585) 647-6400 ext. 310
[EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]