[svn:perlfaq] r11644 - perlfaq/trunk
[email protected] Fri, 15 Aug 2008 02:11:43 -0700 (PDT)
| Newsgroups | perl.cvs.perlfaq |
|---|---|
| Message-ID | <[email protected]> |
Author: comdog
Date: Fri Aug 15 02:11:37 2008
New Revision: 11644
Modified:
perlfaq/trunk/perlfaq6.pod
Log:
* perlfaq6: I'm having trouble matching over more than one line. What's wrong?
+ grammar fix
Modified: perlfaq/trunk/perlfaq6.pod
==============================================================================
--- perlfaq/trunk/perlfaq6.pod (original)
+++ perlfaq/trunk/perlfaq6.pod Fri Aug 15 02:11:37 2008
@@ -97,7 +97,7 @@
than the default, or else we won't actually ever have a multiline
record read in.
- $/ = ''; # read in more whole paragraph, not just one line
+ $/ = ''; # read in whole paragraph, not just one line
while ( <> ) {
while ( /\b([\w'-]+)(\s+\1)+\b/gi ) { # word starts alpha
print "Duplicate $1 at paragraph $.\n";
@@ -107,7 +107,7 @@
Here's code that finds sentences that begin with "From " (which would
be mangled by many mailers):
- $/ = ''; # read in more whole paragraph, not just one line
+ $/ = ''; # read in whole paragraph, not just one line
while ( <> ) {
while ( /^From /gm ) { # /m makes ^ match next to \n
print "leading from in paragraph $.\n";