super simple expression

[EchoCola]

just trying to test if there is an "@" in a string but it doesn't seem to be working because no matter what i put the ouput in the if gets displayed.

print "Please enter the sender address: \n";
$mailaddy = <STDIN>;
chomp($mailaddy);


if ($maildaddy !~ /\@/){
  	print "The e-mail address entered is $mailaddy\n ";

 

[duncdude]

the crux of your problem is mailaddy then mail[red]d[/red]addy

#!/usr/bin/perl

print "Please enter the sender address: ";

chomp ($mailaddy = <STDIN>);

if ($mailaddy =~ /@/) {
  print "The e-mail address entered is $mailaddy\n";
}

Kind Regards
Duncan

 

[parkers]

EchoCola,

Change your code to the to the following:

print "Please enter the sender address: \n";
$mailaddy = <STDIN>;
chomp($mailaddy);

if ([COLOR=red][b]$mailaddy[/b][/color] =~ /\@/){
      print "The e-mail address entered is $mailaddy\n ";
}

 

[parkers]

sorry dunc ... you beat me too it !

 

[duncdude]

also notice we both changed:-

!~

to

=~

... I guess that's what you need - i.e. surely you would not want to negate this as you are checking for an @ to verify being an email address?


Kind Regards
Duncan

 

[duncdude]

no worries parkers ;-)


Kind Regards
Duncan

 

[EchoCola]

hahah, thanks i feel like a dunce ))))

 

[duncdude]

easily done!


Kind Regards
Duncan

 

[ishnid]

This is the sort of error that using 'strict' and warnings help you to avoid.