[sujata_ghosh]

Hi to all!

I have two .dat files. one contain URLs and another file contents Description of each url.

Using a CGI script, it read these files and store their values into 2 textarea box of a HTML Form, now I would like to take each line on both boxes and convert each one into link with Description.

for convert URLs to active link i have done the following thinks:

$add1 = $query->param('add');
$add =~ s/\r?\n/<br>/g;

($adv = $add1) =~ s/(\w+:\/\/)([.a-zA-Z0-9\-~\/]*)/<a href=\"$1$2\" target=\"_blank\">$1$2<\/a>/g;

but i would like to take the rite decsription of this URL from the description textarea box and replace that value in place of this $1$2.

So that at last when this CGI script create a html with active link, those link should take each url and correspondence description from those textarea box.

if anyone have solve this type of problem please guide me.

Thanks in advance.

[Millennium]

You should get the contents of the textare boxes into arrays, then loop through each array to do what you want. Why are the contents of both files being put in textarea boxes anyway?

[sujata_ghosh]

Thanks Millenium,

I have putted putted matter into textarea box, for further instant modification. that's all.

I also understand that i have to take two array and put those boxes value each of them. but i can't able to do coding for both array at a time. i have tried the following one, but it not giving me desired result. please let me know the proper one.

Code:

my $lines = "file.dat";
open(DATA, $lines);
my @lines = <DATA>;
close(DATA);

foreach my $line (@lines) {

($adv2 = $url) =~ s/(\w+:\/\/)([.a-zA-Z0-9\-~\/]*)/<a href=\"$1$2\" target=\"_blank\">$line<\/a><br>/g;

}
print DATAF ($adv2);

Kindly suggest me how do i execute two array same time?

[Millennium]

please post some sample lines from the .dat files. Do both files have the same number of lines and does each line correspond with each line in each file, like line one in file1 corresponds with line one in file2?

[sujata_ghosh]

Yes, both dat files have same line.

Line 1 on B file is corresponding with line 1 of B file.

some example are:

File A:
page1.html
page2.html
page3.html
page4.html
page5.html

File B:
Title 1
Title 2
Title 3
Title 4
Title 5

the program will replace the page1.html with following pattern and add link description, taking from the file for this perticular html page as follows:

<a href="page1.html" target=blank>Title 1</a><br><br>

and store each line in a another .dat file. and using copy command make a html page on specific directory.

Thanks once more for spending your valuable time to help me.

[Millennium]

This would be easier if you used one file:

Code:

file A:

page1.html Title 1
page2.html Title 2
page3.html Title 3
etc 
etc
etc

but I'll work with what you have, here is one possible way:

Code:

open(LINKS,'<file_a.dat') or die "$!";
open(DESC,'<file_b.dat') or die "$!";
while (my $links = <LINKS>) {
   chomp($links);
   chomp(my $desc = <DESC>);
	print qq~<a href="$links" target=blank>$desc</a><br><br>\n~;
}
close(LINKS);
close(DESC);

[sujata_ghosh]

Thanks a lot millenium!

yes i have tried the first one which you have suggest, it is working. as follows:

Code:

my $lines = "/home/web/k/k****ij.com/htdocs/datfile/test.dat";
open(FILE, $lines);
my @lines = <FILE>;
close(FILE);

foreach my $line (@lines) {

($url, $dec) = split (/\t|\n/, $line);

($adv2 = $url) =~ s/(\w+:\/\/)([.a-zA-Z0-9\-~\/]*)/<a href=\"$1$2\" target=\"_blank\">$dec<\/a><br>/g;
print qq~$adv2\n~;

the second one for which I was asking for is also working now.

thanks a lot for your time and effort.

[Millennium]

Why are you using the regxp to create the html tag? Is there other data in the .dat file besides the link and the desc? Can you post some real lines of data from the .dat file?

[sujata_ghosh]

I am using the regxp because firstly the links were with other data on File A. but now I have got a File with only links and one with Description. But the thing is I have forgot to remove the Regxp part. Now no need of it. Opps! that's my mistake.

Thanks Millennium for your effort & concern.