in reply to Re^4: How to add hyperlink for every table data using perl?
in thread How to add hyperlink for every table data using perl?
That still doesnt help. but it is MUCH closer. when you want that link what is in $file and $line? If you tell me that we may be able to get this all put to bed. I dont know where dc_checklist, DEMO, top, and DV are coming from, but i assume they are somewhere in $file or $line
edit: ok, maybe ive been reading this all wrong, do you want every link to be to http://cad.psd.log.com/apps/dev/adkb/dc_checklist/DEMO/top/DV/ ?
then its just
... blahblahblah... my $href='http://cad.psd.log.com/apps/dev/adkb/dc_checklist/DEMO/top/D +V/'; my $check=0; for my $word(@data){ $check++; print $fh_out '<td>'; if($check==1) { print $fh_out '<a href="'.$href.'">'; } print $fh_out $word; if($check==1) { print $fh_out '</a>'; } print $fh_out '</td>'; } print $fh_out "</tr>\n"; } print $fh_out '</table></body></html>'."\n"; close $fh_out; }
|
|---|