#!/usr/bin/perl -w
# script to test regular expressions.
use strict;
# assign the regular expression
my $re = qr/^(\$-|-\$|\$)(\d+|(\d*\.\d\d))$/;
# assign valid strings
my @valid = (
'$1',
'$1.11',
'$.11',
'-$1',
'-$1.11',
'-$.11',
'$-1',
'$-1.11',
'$-.11',
);
# assign invalid strings
my @invalid = (
'',
'$',
'$1.1',
'$1.111',
'$.1',
'$.111',
'-',
'-$',
'-$1.1',
'-$1.111',
'-$.1',
'-$.111',
'$-',
'$-1.1',
'$-1.111',
'$-.1',
'$-.111',
);
# leave alone
my $mismatches = 0;
foreach my $valid (@valid) {
if ( $valid !~ $re ) {
print "valid string doesn't match: $valid\n";
$mismatches += 1;
}
}
foreach my $invalid (@invalid) {
if ( $invalid =~ $re ) {
print "invalid string does match: $invalid\n";
$mismatches += 1;
}
}
print "$re had $mismatches mismatches with the " . (0 + @valid + @inva
+lid) . " test cases\n";
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.