How to Ask A Regex Question (With Test::More)

[tphyahoo]

This is the second post in the How To Ask a Question (With Test::More) series, and assumes you have read the first, main post.

In this installment, we learn how to use Test::More::like($string, $regex) and the qr quotelike operator to ask regex questions in a sane way. Let's dive right in.

******************BEGIN QUESTION TEMPLATE************************

O Wise Monks, I can't get this regex to do what I want it to do. As you can see, it fails two tests.

use warnings;
use strict;
use Test::More qw(no_plan);

my $emailsregex = qr/\w+@\w+\.(net|com|org)/;

while (<DATA>) {
    like($_, $emailsregex)
}
__DATA__
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]

I'm on Windows XP system using the standard ActiveState perl distribution.

I got both standard and error output out of my test, into one output file, by running this with emailsregex.pl > output.txt 2>&1 output.txt.

The output I got was

ok 1
ok 2
not ok 3
#     Failed test (emailsregex.pl at line 8)
#                   '[e-mail]
# '
#     doesn't match '(?-xism:\w+@\w+\.(net|com|org))'
not ok 4
#     Failed test (emailsregex.pl at line 8)
#                   '[e-mail]
# '
#     doesn't match '(?-xism:\w+@\w+\.(net|com|org))'
ok 5
1..5
# Looks like you failed 2 tests of 5.

What the heck am I doing wrong?

******************END QUESTION TEMPLATE************************

(Debugging the regex is left as an exercise for the reader.)