Re^2: Remove hyperlinks from the lines which have special character?

This code will remove the entire hyperlink line.I like to remove only the hyperlinks from the line.THe line contents should be there the hyperlink line(means tha underlined line)how it can be removed.

Comment on Re^2: Remove hyperlinks from the lines which have special character?

Replies are listed 'Best First'.
Re^3: Remove hyperlinks from the lines which have special character? by huck (Prior) on Mar 13, 2017 at 09:46 UTC
`my $dolink=$data[0] !~ m/[\=\%]/; for my $word(@data){ $check++; print $fh_out '<td>'; if($check==1 && $dolink ) { print $fh_out '<a href="'.$href.'" >'.$word.'</a>'; } else { print $fh_out $word;} print $fh_out '</td>'; }` [download] That isnt what you showed as your sample output tho, whole lines were missing ya know. cleaned it up a little too. you dont really want the ~~training~~ TRAILING space in the href= either.	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Remove hyperlinks from the lines which have special character?
by huck (Prior) on Mar 13, 2017 at 09:46 UTC

 
    my $dolink=$data[0] !~ m/[\=\%]/; 
    for my $word(@data){ 
      $check++;
      print $fh_out '<td>';
      if($check==1 && $dolink ) {
         print $fh_out '<a href="'.$href.'" >'.$word.'</a>';   
         }
      else { print $fh_out $word;} 
      print $fh_out '</td>';
      }
[download]

~~training~~

[reply]
[d/l]