perlquestion
catfish1116
<p>
I have written some code 2 ways, (shown below). The firsts one without the binding operator does work. The second one, with the binding operator doesn't work. </p>
<code>
print "Enter a string: ";
chomp(my $_ = <STDIN>);
if ($_ = /(a|b|x)/i) {
print "Its a good match\n";
} else {
print "That was not a good match\n";
}
print "Enter a string: ";
chomp(my $teststring = <STDIN>);
if ($teststring =~ m{ /(a|b|x)/}i) {
print "Its a good match\n";
} else {
print "That was not a good match\n";
} </code>
<p> I guess I don't understand the difference between binding and non-binding reg-exps.
TIA,
The Catfish
</p>