| Michael Redbourn 2006-10-30, 7:03 pm |
| Hi,
a year or so ago someone wrote a short script for me to and it worked
well.
I am no longer in contact with him and have forgotten how to use it -
silly me :-)
The idea is that I have a list of urls followed by a description in
one folder and when I run the script it puts the combined perl script
and my list in another folder.
the script is #!/usr/bin/perl -w
open(AFILE,"text.txt");
$h=0;
while($kline=<AFILE> ) {
$malines[$h]=$kline;
chomp($malines[$h]);
($cate[$h],$catr[$h])=split(' ',$malines[$h],2);
$u1=$cate[$h];
$u2=$catr[$h];
open(FILE,">>text2.txt");
my($k)='<a href="out.php?url='.$u1.'&link=gallery&s=60&first=1"
onmouseover="window.status=''.$u1.''; return true"
onfocus="window.status=''.$u1.''; return true"
onmouseout="window.status=''; return true"
target="_blank">'.$u2.'</a><br>';
print $k,"\n";
print FILE $k,"\n";
close (FILE);
}
close (AFILE);
If you could please remind me what I have to do it would be much
appreciated. And also tell me which perl program to download for use
with Windows XP
many thanks,
Michael
--
Posted via a free Usenet account from http://www.teranews.com
|