-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Wesley Groleau <we********@myrealbox.com> wrote in
news:yk********************@gbronline.com:
# Parse record
/^(\d+)\s+(@\S+@)?\s*(\S+)\s+(.*)/;
Hi Wesley,
I just wanted to chime in here and point out two things that nobody else
has mentioned yet:
First, you should *always* test the success or failure of a regex match!
As follows:
if (/^(\d+)\s+(@\S+@)?\s*(\S+)\s+(.*)/)
{
....it succeeded....
}
else
{
....it failed to match....
}
Second, comp.lang.perl is a defunct newsgroup. You'll get a better
response if you post to comp.lang.perl.misc, which is where general Perl
questions should be posted.
Good luck,
- --
Eric
$_ = reverse sort qw p ekca lre Js reh ts
p, $/.r, map $_.$", qw e p h tona e; print
-----BEGIN PGP SIGNATURE-----
Version: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>
iQA/AwUBPzDRj2PeouIeTNHoEQIXaACg+I+6/qDR6OMBCilT9csZp+l/Vm4AoL9Z
V3b0cWj7poriArS3k8sFrta2
=NGTh
-----END PGP SIGNATURE-----