vlanis » 25 фев 2004, 12:34
AiK писал(а):vlanis, по ссылке, что я тебе привёл, есть пример на Perl.
sub val{
my ($value)=@_][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/A-Za-z0-9\ //dc;
$value =~ s///g;
$value =~ s/[\"\'\%\;\)\(\&\+]//g;
$value =~ s/>/>/g;
$value =~ s/</</g;
$value =~ s/([^\b\s,.]{20})([^\s\b,.])/$1 $2/sig;
$value=~tr/\r\n/ /;
return $value;
}
ну чтоже - наша функция растет не по дням а по часам!!!
[quote="AiK"][b]vlanis[/b], по ссылке, что я тебе привёл, есть пример на Perl.[/quote]
sub val{
my ($value)=@_][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/A-Za-z0-9\ //dc;
$value =~ s///g;
$value =~ s/[\"\'\%\;\)\(\&\+]//g;
$value =~ s/>/>/g;
$value =~ s/</</g;
$value =~ s/([^\b\s,.]{20})([^\s\b,.])/$1 $2/sig;
$value=~tr/\r\n/ /;
return $value;
}
ну чтоже - наша функция растет не по дням а по часам!!!