open(FILE,"content.dat");
read(FILE,$cat,[7]);
close(FILE);
@cat=split(/\n/,$cat);
$y=scalar(@cat);
$y--;
for($x=0;$x<=$y;$x++)
{
@hep=split(/<==>/,@cat[$x]);
@content=split(/./,@hep[2]);
$z=scalar(@content);
$z--;
$tmp31=join("\n",@content);
open(TMP,">con_$x.txt");
print TMP $tmp31;
close TMP;
for($m=0;$m<=$z;$z++)
{
if(@content[$m]=~/$sw/i)
{
@content[$m]=~s/$sw/$sw<\/b>/igs;
$rez.="<a href=http://$site/@hep[0]>@hep[1]</a><br>@content[$m]<br><br>";
$c++;
}
}
}
---
|