Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
...
my $nav2 = $html->find('(//nav)[2]')->[0];
$nav2->parentNode->removeChild($nav2);
print $html->toString;  # c="d" is gone.
  2. or download this
    open :r :F html file.html ;
rm (//nav)[2] ;
ls / ;