Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re: Regex Tester

by perlguy (Deacon)
on Mar 06, 2003 at 08:36 UTC ( #240839=note: print w/replies, xml ) Need Help??

in reply to Regex Tester

why not make your code a little bit more readable (and a bit more perl-ish), by changing this:
# assign valid strings my @valid = ( '$1', '$1.11', '$.11', '-$1', '-$1.11', '-$.11', '$-1', '$-1.11', '$-.11', );
to something like this, using the qw() operator:
# assign valid strings my @valid = qw( $1 $1.11 $.11 -$1 -$1.11 -$.11 $-1 $-1.11 $-.11 );
Of course, if you ever have any spaces in your future tests, this goes mostly out the window, but since your strings seem to fit just fine, I would say it will be a little easier to read and maintain. So long as no one reads the $- and $1 as variables, you should be good to go.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://240839]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (8)
As of 2018-03-18 21:38 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (230 votes). Check out past polls.