(no subject)

[nataraj]

Perl таки в натуре write only язык...
Сего регулярного выражения я сейчас понять не могу совсем...
Ниасилил...

sub submit_param {
        my $val=shift;
        return undef unless defined $val;
        my $prefix=shift;

        my $cgi=$Communiware::CGI;
        $val=~s/%({([_*^\&\%]?[^}]+)}|[_*^\%\&]?[A-Z0-9a-z\._]+(#\d+)?\b)/get_submit_val($2||$1,$cgi,$prefix)/eg;
        return $val;
}