Re: Parse into array

Try this... but as someone pointed out, this could break easily.

#!/usr/bin/perl
use strict;
while( <DATA> ) {
    foreach ( split "</b>" ) {
        (my $name) = $_ =~ /\s?\w.*\<b\>(\w+.*)/;
        print "$name\n" if ( defined( $name ) );
    }
}

__DATA__
<td>Suggested Categories or Articles</td><td> <b>personal injury</b> <
+font size="-3" face="Verdana"> (0.56)</font><br><b>accident lawyers</
+b> <font size="-3" face="Verdana"> (
0.4)</font><br><b>attorneys</b> <font size="-3" face="Verdana"> (0.35)
+</font><br><b>law firms</b> <font size="-3" face="Verdana"> (0.32)</f
+ont><br><b>litigation</b> <font size
="-3" face="Verdana"> (0.32)</font><br></td>
[download]

Comment on Re: Parse into array Download Code

Replies are listed 'Best First'.
Re^2: Parse into array by vit (Friar) on Mar 12, 2009 at 01:54 UTC
There is one complecation I should've mentioned. I have many HTML portions like this, and I need to parse only one which starts with "Suggested Categories or Articles....." Solved, no problem, Thanks everybody!!	[reply]