my ($spl, $raitr, $mrOP, $mrWHAT, $mrREGION, $mrTD, $mrADRES, $mrN_D, $mrK_D, $mrNKOM, $mrKOM, $mrET, $mrW_ET, $mrS, $mrKH, $mrMETRES, $mrTEL, $mrLIFT, $mrBAL, $mrGW, $mrSAN, $mrSTRADDR, $mrWISH, $mrNOTE, $mrPRICE, $mrSUBJ, $mrPHONE, $mrid);
$raitr = \'\';
foreach (@rait){
$spl = $CFG{\'inforec\'};
($mrOP, $mrWHAT, $mrREGION, $mrTD, $mrADRES, $mrN_D, $mrK_D, $mrNKOM, $mrKOM, $mrET, $mrW_ET, $mrS, $mrKH, $mrMETRES, $mrTEL, $mrLIFT, $mrBAL, $mrGW, $mrSAN, $mrSTRADDR, $mrWISH, $mrNOTE, $mrPRICE, $mrSUBJ, $mrPHONE, $mrid) = split />>/, $_;
$spl =~ s/--OP--/$rwOP/g;
$spl =~ s/--WHAT--/$rwWHAT/g;
$spl =~ s/--REGION--/$mrREGION/g;
$spl =~ s/--TD--/$mrTD/g;
$spl =~ s/--ADRES--/$mrADRES/g;
$spl =~ s/--N_D--/$mrN_D/g;
$spl =~ s/--K_D--/$mrK_D/g;
$spl =~ s/--NKOM--/$mrNKOM/g;
$spl =~ s/--KOM--/$mrKOM/g;
$spl =~ s/--ET--/$mrET/g;
$spl =~ s/--W_ET--/$mrW_ET/g;
$spl =~ s/--S--/$mrS/g;
$spl =~ s/--KH--/$mrKH/g;
$spl =~ s/--METRES--/$mrMETRES/g;
$spl =~ s/--TEL--/$mrTEL/g;
$spl =~ s/--LIFT--/$mrLIFT/g;
$spl =~ s/--BAL--/$mrBAL/g;
$spl =~ s/--GW--/$mrGW/g;
$spl =~ s/--SAN--/$mrSAN/g;
$spl =~ s/--STRADDR--/$mrSTRADDR/g;
$spl =~ s/--WISH--/$mrWISH/g;
$spl =~ s/--NOTE--/$mrNOTE/g;
$spl =~ s/--PRICE--/$mrPRICE/g;
$spl =~ s/--SUBJ--/$mrSUBJ/g;
$spl =~ s/--PHONE--/$mrPHONE/g;
$spl =~ s/--id--/$mrid/g;
$raitr = $raitr . $spl;
};
close IN;
open IN, $CFG{\'infohtml\'};
my @rhtml = ;
close IN;
foreach (@rhtml){
$_ =~ s//$raitr/g;
print $_;
};
};
Надо вставить возможность вывода только тех строк, которые содержат зарание заданные переменные. Переменные которые были заданны формой моиска и отсортировать те стоки в которых есть заданные слова и вывести их на экран.... Зарание очень благодарен....
