Wc -Sx- Jones wrote:
>
> =pod
> What would the best approach to account for ALL strings matched?
> (In other words I want to display as complete a list as possible to
> determine all strings that would be matched...)
> =cut
$ podchecker ~/Wc-Sx-Jones.email
*** WARNING: file does not start with =head at line 33 in file
~/Wc-Sx-Jones.email
*** ERROR: Spurious text after =pod at line 33 in file
~/Wc-Sx-Jones.email
~/Wc-Sx-Jones.email has 1 pod syntax error.
perldoc perlpod
> sub verp_mung {
> my $addr = $_[0];
>
> $addr =~
> s/((?:bounce[ds]?|no(?:list|reply|response)|return|sentto|\d+).*?)(?:[\+_\.\*-]\d+\b)+/$1-ID/oi;
The characters '+', '.' and '*' are not special in a character class and
don't have to be escaped. The /o modifier is only useful if you have
variables in the regular expression.
> return $addr;
> }
>
> # The e-mail addresses in question have already been
> # accepted by SMTP server - so they are valid.
>
> __END__
Could you please explain in a little more detail what you are trying to
accomplish.
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
