All,
I am trying to make sure that if feature 5 is selected, that it needs to
have a colon and a number after it.
I cannot seem to find the reference to not equaling a pattern match I was
testing for three things.
1. if $feature has a 5 in it
and
2. if $feature does have a 5 in it, make sure it has a colon and a number
after it.
and
3. that my $count is set to 0 as to only ask the user once.
Code is below:
$feature = <STDIN>;
chomp($feature);
if (!$feature) {
$loop2 = 0;
}
elsif (($feature =~ /5/) && ($feature !=~ /5:\d+/) && ($count == 0)) {
print "\nMake sure you enter a \":\" then the number of users when
selecting feature 5\n";
sleep('3');
$count = 1;
$loop2 = 0;
}
else {
$loop2 = 1;
}
The middle check is the one I am having problems. I can't find a reference
to make =~ a not equal.
Thanks for any help...
Craig
[EMAIL PROTECTED]
Pager
Numeric: 1-877-895-3558
Email pager: [EMAIL PROTECTED]
--------------------------------------------------------------
You will never find time for anything.
If you want time, you must make it.
Charles Buxton
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
