#!usr/bin/perl
open LINKFILE, "linksource.dat"  || die "no such file here";
while (<LINKFILE>) {
#memorize title, then url;
my ($title) = /title=(".*?")/;  ($title) =~ s/"/'/g;       ($title) =~ s/^\s+//g;($title) =~ s/\s+$//g;
my ($url) = /(component.*")/;   ($url) = '"/' . $url;  ($url) =~ s/"/'/;
#print $title , "\n" , $url, ,"\n";
my $matched = 0;
open SQL, "mark.sql";
while (<SQL>) {
@fields = split /,/ , $_ ;
foreach $i(0 .. $#fields) {
s/^\s+//, s/\s+$// for $fields[$i];
#print "\$fields[$i]:$fields[$i] \n";
}
print "\$fields[2]:|$fields[2]|   \$title:|$title| \n"  if ($title eq "'Alternative Reds'");
next unless ($fields[2] eq $title) or ($i == $#fields);
push @used, $fields[0];
($fields[3] = $url) if ($fields[2] eq $title);
 my $sqlout = join "," , @fields;
 			open NEWFILE , ">>newsql.sql";
            print NEWFILE "$sqlout \n";
			#print NEWFILE "\$fields[2]:$fields[2], \$title:$title \n";
            close NEWFILE;
            last;
 			}
}
close SQL;
close LINKFILE;

open SQL, "mark.sql";
while (<SQL>){
@fields = split /,/ , $_ ;
foreach $i(0 .. $#fields) {
s/^\s+//, s/\s+$// for $fields[$i];}
foreach $j(0..$#used) {
$match++ && (print "$_:$fields[0]") if ($fields[0] eq $used[$j]) && next;
print "\$used:|$used[$j]| \$fields[0]:|$fields[0]| \n";
my $sqlout = join "," , @fields;
open NEWFILE , ">>newsql.sql";
print NEWFILE  "$sqlout \n" && (push @used, $fields[0])  unless $match;
$match = 0;
close NEWFILE;
last;
                       }
 }