\n"
}
$i=2;
}
elsif (/\@listing/ ) {
if ($i==1) {
print OUTFILE "\n";
};
if ($i==2) {
print OUTFILE "\n";
};
if ($i==4)
{
$i = 0;
print OUTFILE "
\n"
}
$i=3;
}
elsif (/\@end/ ) {
if ($i==1) {
print OUTFILE "\n";
};
if ($i==3) {
print OUTFILE "\n";
};
if ($i==4)
{
$i = 0;
print OUTFILE "
\n"
}
print OUTFILE "
Vertical Index\n
\n";
$i=0;
}
elsif (/\@break/ ) {
if ($i==1 || $i==2 ) {
print OUTFILE "
\n";
};
if ($i==3) {
print OUTFILE "
\n";
};
if ($i==4)
{
$i = 0;
print OUTFILE "
\n"
}
}
else {
if ($i) {
#very slow but acceptable, search from longest to shortest string
# more than one link on an input line : repeat search for all strings
$line = $_;
chomp $line;
# only put up links in $i==2 normal text
for ($j = $pattern-1 ;$i ==2 && $j>=0 ;$j--)
{
# same link more than once on same input line.
$tail = $line;
#dont match stuff already either _link_name or >link_name
# make sure that what follows is not part of a word
if ( $tail =~ m/\W$links[$j]\W/i )
{
# got match
$targ = $links[$j];
if(length $targ >= 2)
{
$targ =~ s/ /_/g;
$targ =~ s/_$//g;
$line =~ s/(.*\W)($links[$j])(\W.*)/$1$links[$j]<\/a>$3/i;
#recycle tail to see if any more .
$tail = $3;
}
};
}
# print the output line
print OUTFILE $line;
};
};
};
print INDEXFILE "\n";