Description:' + element[1].fontcolor('blue') + '
' + mpg_prez(element[3]) + '
' + jpg_prez(element[2]) + '
' } function jpg_prez(item) { var string = item.toUpperCase() if ( string.indexOf('JPG') == -1 )return ""; var list = item.split(" "); return jpg_prez2(list) ; } function jpg_prez2(list1) { if (list1.length == 0) return ""; image_file = list1.slice(0,1) ; return '
' + jpg_prez2(list1.slice(1)) ; } function mpg_prez(item) { var string = item.toUpperCase() if ( string.indexOf('MPG') == -1 )return ""; var list = item.split(" "); return mpg_prez2(list) ; } function mpg_prez2(list1) { if (list1.length == 0) return ""; mpg_file = list1.slice(0,1) ; return ' MPEG - ' + mpg_file + '
' + mpg_prez2(list1.slice(1)) ; } HEADER2 #------------ Sub-procedures: # pustlib Преобразует текстовые из Библиотеки sub pustlib { my $txt = $_[0] ; my $datafile="../db/library-koi.txt"; my $pict="../lib/images/"; $txt =~ s/img src\=(\S+)/
<\/p>
/ig;
open(DATA,$datafile);
while(){
($name,$file)=split("#");
if (substr($name,-1) =~ /й|а|ю|я|и|ы|е|ь/) {
$endkey = chop($name) ;
}
if ($ENV{'QUERY_STRING'} ne "$file.txt") {
if ($txt =~ m/\s$name(?!с|х|з|ж|т|ф|ч)/) {
$txt =~ s/\s($name(?!с|х|з|ж|т|ф|ч)\S{0,3}\s+)/ $1<\/a> /g;
#$txt =~ s/\s($name(?!х|з|ж|т|ф|й|ч)\S{0,3}\s+)/ $1<\/a> /g;
}
}
}
close DATA;
return " $txt ";
}
#----
sub FindName {
my $Name = shift @_ ;
my $yes = 0 ;
chomp $Name ;
my @citlist = () ;
my $datafile = "../db/library-koi.txt";
open(DATA,$datafile);
my @objects = ;
close DATA;
foreach (@objects) {
chomp;
my ($author,$file) = split("#") ;
if ( $file eq $Name) {
$Name = $author ;
$yes = 1;
last;
}
}
if ($yes == 0) {return ""}
foreach (@objects) {
chomp;
my ($author,$file) = split("#") ;
open (TEXT,"../lib/htext/$file.txt") || die "No File - $file.txt" ;
my $nl = $/ ;
undef $/;
local $_ =
-/g;
return " $txt \n";
}
sub illustr {
my $txt = $_[0];
my $datafile = "../determinator/dbimage.txt";
my @list = ();
open(DATA,$datafile);
@objects = ;
close DATA;
foreach (@objects){
chomp;
my ($name,$file,$describ)=split("#");
$name =~ s/\s+$//;
#if ($txt =~ m/\s$name(?!е|х|з|ж|т|ф|й|ч)/) {
#--
if ($txt =~ m/\s$name(?!е|х|з|ж|т|ф|й|ч)/) {
$describ =~ s/"/\\"/g;
chomp($describ);
my $anket_str=join('|',($name,$file,$describ));
chomp ($anket_str);
chop ($anket_str);
$anket_str = "\'" . $anket_str . "\'";
push (@list,$anket_str);
#$txt =~ s/\s($name\S?\S?\s+)/ $1<\/a> /g;
$txt =~ s/\s($name(?!е|х|з|ж|т|ф|й|ч)\S{0,2}\s+)/ $1<\/a> /g;
}
}
chomp(@list);
if (scalar (@list) > 0) {
$out_str = commify(@list);
$Java_string = " $header2 \n var animals \= new Array ( $out_str ) \n" ;
return " $txt \n";
}
return " $txt \n ";
}
#------
sub childstory {
my $txt = $_[0];
my $datafile = "../db/childdb.txt";
my @list = ();
open(DATA,$datafile);
my @objects = ;
close DATA;
foreach (@objects){
$endkey = "";
chomp;
my ($name,$describ,$file)=split("#");
$name =~ s/\s+$//;
#-- Удалили последний символ если он был гласной или мягким знаком
if (substr($name,-1) =~ /а|я|и|ы|e|ь/) {
$endkey = chop($name) ;
}
#--
if ($txt =~ m/\s$name(?!с|х|з|ж|т|ф|й|ч)/) {
$describ =~ s/"/\\"/g;
chomp($describ);
#--- Razborka FILES !!!!! ----
if ($file eq "") {$qt = $jpg = $mpg = $file}
else {
$_ = $file ;
@mpg = m/\S+MPG/ig ;
$mpg = "@mpg";
@jpg = m/\S+JPG/ig ;
$jpg = "@jpg";
}
#---
$name2 = join ("",$name,$endkey) ;
$name2 =~ s/\s/_/g ;
my $anket_str=join('|',($name2,$describ,$jpg,$mpg));
chomp ($anket_str);
#chop ($anket_str);
$anket_str = "\'" . $anket_str . "\'";
push (@list,$anket_str);
$txt =~ s/\s($name(?!с|х|з|ж|т|ф|й|ч)\S{0,2}\s+)/ $1<\/a> /g;
}
}
chomp(@list);
if (scalar (@list) > 0) {
$out_str = commify(@list);
$Java_string = " $header2 \n var animals \= new Array ( $out_str ) \n" ;
return " $txt \n";
}
return " $txt \n ";
}
sub commify {
(@_ == 0) ? "" :
(@_ == 1) ? $_[0] :
(@_ == 2) ? join(",",@_):
join (",", @_[0 ..($#_ - 1)]," $_[-1]");
}
1;