Am Dienstag, 8. März 2005 17.20 schrieb William Melanson:
> Greetings,
Greetings too :-)
>
> This is the multi line pattern in which I wish to match:
>
> <tr>
> <td><b> String 1.2.3.4.5.6 </b></td>
> <td><img src="pics/green.gif" alt="OK"></td>
> <tr>
>
> This is what I have:
>
> ==========================================================
> #!/usr/bin/perl -w
>
> my $file='./index.html';
>
> open INFILE, $file or die "Can't open $file: $!";
> while (<INFILE>)
> {
> if (/^<tr>\n
> ^<td><b> String 1\.2\.3\.4\.5\.6 </b></td>\n
> ^<td><img src\=\"pics/green\.gif\" alt\=\"OK\"></td>\n
> ^<tr>\n/smx) {
>
> print("$_");
> }
> }
> close INFILE;
>
> ==========================================================
>
> What have I been overlooking?
that
while (<INFILE>)
reads just _one_ line at the time :-)
[...]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
