db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.43, 2001/12/05 01:49:26	version 1.44, 2001/12/05 01:55:21
Line 195 sub proxy	Line 195 sub proxy
$text=~s/p(${RLrl})/р$1/gom;	$text=~s/p(${RLrl})/р$1/gom;
$text=~s/(${RLrl})p/$1р/gom;	$text=~s/(${RLrl})p/$1р/gom;
$text=~s/\s+/ /gmo;	$text=~s/\s+/ /gmo;
$text=~s/[^йцукенгшщзхъфывапролджэячсмитьбюЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮQWERTYUIOPASDFGHJKLZXCVBNM]/ /g;	$text=~s/[^йцукенгшщзхъфывапролджэячсмитьбюЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮQWERTYUIOPASDFGHJKLZXCVBNM0-9]/ /g;
$text=uc $text;	$text=uc $text;
my @list= $text=~m/(?:(?:${RLrl})+)\|(?:[A-Za-z0-9]+)/gom;	my @list= $text=~m/(?:(?:${RLrl})+)\|(?:[A-Za-z0-9]+)/gom;
my (%c, %good,$sstr);	my (%c, %good,$sstr);