https://www.opennet.ru/openforum/vsluhforumID3/37085.html CREATE FUNCTION totalcomp(integer, integer) RETURNS integer<br> AS '<br> my $a = ''test''; # ''- Экранирование кавычки.<br> return $_[0] + $_[1];<br> '<br>LANGUAGE 'plperl';<br><br><br>URL: <br>Обсуждается: http://www.opennet.ru/tips/info/153.shtml<br> https://www.opennet.ru/openforum/vsluhforumID3/37085.html#1 Tue, 03 Apr 2007 06:51:05 GMT В последних версиях этого не требуется, тк используются $[SMTHG]$:<br>create function foo(text,text) returns bool as<br>$$<br>my($text,$pattern) = @_;<br>return $text =~ /$pattern/i;<br>$$ language 'plperl[u]'<br>