the /x switch allows white space and comments within a regular expression. This lets you break things into little pieces and comment out the pieces until the syntax errors go away.
use strict;
use warnings;
use diagnostics;
my $instream= 'empty';
$instream =~ s/
<FONT
(.+?)
COLOR\s?=\s?
('|")?
(\#......)
\2
(.+?)
SIZE
\s?=\s?
('|")?
################ (\d++)\5 #d+ not d++
(.+?)
FACE
\s?=\s?
('|")?
(.+?)
\8
[^>]*>
\s*
/genStyleCSF($3,$6,$9)
/iegx;
Also allow me to join the chorus suggesting a HTML parsing module....
email: mandog | [reply]
[d/l] |
The error you're seeing is a result of perl getting confused about which parts of your code are inside a substitution, and which are outside. Look for a regex, somewhere before line 257, where you're matching a slash, and forgot to escape it with a backslash.
When you're matching slashes inside a regex, it's helpful to use a different delimiter for the regex, as in m,</html>, or s!</H1>!}\n! . This saves you from having to use all those backslashes.
But, as wog said, it really would be best to use an HTML parsing module. | [reply]
[d/l]
[select] |