Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

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

by tphyahoo (Vicar)
on Jul 29, 2005 at 17:11 UTC ( #479480=perltutorial: print w/ replies, xml ) Need Help??

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__
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 > output.txt 2>&1 output.txt.

The output I got was

ok 1 ok 2 not ok 3 # Failed test ( at line 8) # ' # ' # doesn't match '(?-xism:\w+@\w+\.(net|com|org))' not ok 4 # Failed test ( at line 8) # ' # ' # 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.)

Comment on How to Ask A Regex Question (With Test::More)
Select or Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perltutorial [id://479480]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (7)
As of 2015-11-28 00:12 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (735 votes), past polls