Re^4: How to add hyperlink for every table data using perl?

[finddata]

Hi, the link is as follows: http://cad.psd.log.com/apps/dev/adkb/dc_checklist/DEMO/top/DV/

Name    Last modified    Size    Description
[DIR]    Parent Directory         -     
[DIR]    DV/    07-Mar-2017 12:24    -               
[   ]    block.config    07-Mar-2017 12:24    399     
[   ]    block.html    07-Mar-2017 12:24    1.6K

http://cad.psd.log.com/apps/dev/adkb(this is the constant location in which directories are stored).

[huck]

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;  
    }