Spliting in perl

I need to split the file table element tag using perl how arh??? So the end result I would have all table element stored into an array. how???

$array[0] will be
<table a="EEE">
 <td>www</td>
</table>

$array[1] will be
<table a="ttt">
 <td>SSS</td>
</table>

$array[2] will be
<table a="ggg">
 <td>vvv</td>
</table>
<p> DDDWDw </p>
 
<table a="EEE">
 <td>www</td>
</table>
 
<g> FFFFF </g>
 
<table a="ttt">
 <td>SSS</td>
</table>
 
<table a="ggg">
 <td>vvv</td>
</table>

Open in new window

KenTan85Asked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
mrjoltcolaConnect With a Mentor Commented:
Try this.
#!/usr/bin/perl
 
my $HTML =<<EOF;
<table a="EEE">
 <td>www</td>
</table>
 
<g> FFFFF </g>
 
<table a="ttt">
 <td>SSS</td>
</table>
 
<table a="ggg">
 <td>vvv</td>
</table>
 
EOF
 
 
my @tables = $HTML =~ /(<table [^>]*?>.*?<\/table>)/gs;
 
foreach my $table (@tables) {
   print "TABLE: $table\n";
}

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.