Help for this page

Select Code to Download


  1. or download this
    while ($t =~ /<div id="724">(.*?)<\/div>/sg)
{
    print "$_\n" for $1 =~ /<p>(.+?)<\/p>/g;
}
  2. or download this
    use strict;
use warnings;
...
my $dom = XML::LibXML->load_xml(string => $t);

print $_->to_literal . "\n" for $dom->findnodes('//div[@id="724"]/p');
  3. or download this
     1:59 >perl 1798_SoPW.pl
aaa22
...
aafsdfsdfa22

 1:59 >