Help for this page

Select Code to Download


  1. or download this
        while(defined(my $t = $p->get_token())){
            print(TEMPO $t->as_is), next
                unless $t->is_tag('a');
    ...
               "\n\n"
            ) if exists $attr->{href};
        }
    
  2. or download this
        my @stack;
        while(defined(my $t = $p->get_token())){
            if($t->is_start_tag('a')) {
    ...
    
            print TEMPO $t->as_is;
        }