Is it the if ($MGMTCMNT =~ /$MGMTNM/) part that is tripping you up? I
believe you could change it to if ($MGMTCMNT =~ /\Q$MGMTNM\E/) if you
need to keep the regular expression. Another idea might be to change it
to
if ( ($start = index($MGMTCMNT, "$MGMTNM (")) > 0) {
-----Original Message-----
From: Paul Nowosielski
Sent: Tuesday, May 30, 2006 4:13 PM
To: beginners@perl.org
Subject: Escaping a plus sign
Dear All,
I have a perl script that runs nightly. It create a data feed. The
script will
die if the is a + sign in the fields its parsing.
Here is the snippet:
while (($PKEY, $MGMTCMNT, $manager_id, $MGMTNM, $UPDATE1, $UPDATE2) =
$sth->fetchrow_array) {
$comment = "";
if ($MGMTCMNT =~ /$MGMTNM/) {
$len = length($MGMTNM);
$start = index($MGMTCMNT, "$MGMTNM (");
$start += $len + 2;
$end = index($MGMTCMNT, ")", $start) - $start;
$comment = substr($MGMTCMNT, $start, $end);
}
if ($UPDATE1 > $artisttime || $UPDATE2 > $artisttime ) {
print (ARTMGRFILE "$PKEY\t$manager_id\t$comment\n");
}
}
Here is the error message:
Quantifier follows nothing in regex; marked by <-- HERE in m/+ <-- HERE
1
Public Relations/ at /srv/www/htdocs/admin/utilities/aeg/manart.pl line
102.
In this error the problem file had the text "+1 Public Relations";
Is there a way to escape this character so in the future it won't kill
the
script?
Thank you,
--
Paul Nowosielski
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
--------------------------------------------------------------------------------------------------------
This email and any attachments have been scanned for known viruses using
multiple scanners.
We believe that this email and any attachments are virus free, however the
recipient must
take full responsibility for virus checking. This email message is intended for
the named
recipient only. It may be privileged and/or confidential. If you are not the
intended named
recipient of this email then you should not copy it or use it for any purpose,
nor disclose
its contents to any other person. You should contact Misys Banking Systems so
that we can
take appropriate action at no cost to yourself.
www.misys.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
