On Mon, 16 Aug 2004, Fontenot, Paul wrote:
Here is the entire script:
Thanks, this is clearer.
while (my(@row) = $sth->fetchrow_array)
{
# ... snip ...
my $mso = $row[2](m/MS\d\d\-\d{3}/);
This may work better:
my $mso = $row[2] =~ (m/MS\d\d\-\d{3}/);or
my $mso = ( $row[2] =~ (m/MS\d\d\-\d{3}/) );I'm cargo culting here, i.e. pasting an idiom that I've never understood as clearly as I ought to; I can never keep straight when (or why) the pattern match should be wrapped in parens, but I think the latter version should definitely work.
-- Chris Devers [EMAIL PROTECTED] http://devers.homeip.net:8080/blog/
np: 'Four6 (John Cage)'
by Sonic Youth
from 'Goodbye 20th Century'-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
