";
print OUT "";
open IN, "chrom.html";
@chrom=;
$reps=1;
foreach(@chrom)
{
if(/(\w*.html)/)
{
$file=$1;
print "file=$file\n";
$prodn=$file;
$prodn=~s/\.html//;
print OUT "$prodn \n";
if($reps++ % 30==0){print OUT " | ";}
}
}
print OUT " |
| ";
$reps=1;
open IN, "wyan.html";
@wyan=;
foreach(@wyan)
{
if(/(\w*.html)/)
{
$file=$1;
print "file=$file\n";
$prodn=$file;
$prodn=~s/\.html//;
print OUT "$prodn \n";
if($reps++ % 30==0){print OUT " | ";}
}
}
print OUT " |
|