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

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
[download]

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

Comment on Re^4: How to add hyperlink for every table data using perl? Download Code

Replies are listed 'Best First'.
Re^5: How to add hyperlink for every table data using perl? by huck (Prior) on Mar 10, 2017 at 06:39 UTC
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; }` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^5: How to add hyperlink for every table data using perl?
by huck (Prior) on Mar 10, 2017 at 06:39 UTC

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;  
    }
[download]

[reply]
[d/l]