DROP TABLE IF EXISTS test;
CREATE TABLE IF NOT EXISTS test 
(fint integer
,ftxt text
,fvrchr varchar(20)
);

DEALLOCATE ALL;
PREPARE FOO (unknown ,unknown ,unknown )AS
INSERT INTO test(fint, ftxt, fvrchr)
			VALUES ($1, $2, $3);
EXECUTE FOO('1','adaad','adaad');
SELECT * FROM test;

DROP TABLE IF EXISTS test;
CREATE TABLE IF NOT EXISTS test 
(fint integer
,ftxt text
,fvrchr varchar(20)
);

CREATE OR REPLACE FUNCTION test1(a_val text[]) RETURNS VOID AS 
$$
	use strict;
	#my @av = @$_[0]; так нельзя
	my @av = @{$_[0]};
	elog(NOTICE ,"@av");
	my $av = $_[0];
	#my @av =@$av; так тоже
	my @av =@{$av};
	elog(NOTICE ,$av);
	my $plan = spi_prepare(
			'INSERT INTO test(fint, ftxt, fvrchr)
			VALUES ($1, $2, $3);'
			,'integer'
			,'text'
			,'varchar');
	spi_exec_prepared(
			$plan,@av[0],@av[1],@av[2]
			);
	spi_freeplan( $plan);
$$
LANGUAGE plperlu;

SELECT test1(ARRAY['1','адын','адын']);
SELECT * FROM test; 
/*
CREATE OR REPLACE FUNCTION test2(a_val text[]) RETURNS VOID AS 
$$
	use strict;
	#my @av = @$_[0]; так нельзя
	my @av = @{$_[0]};
	elog(NOTICE ,"@av");
	my $av = $_[0];
	#my @av =@$av; так тоже
	my @av =@{$av};
	elog(NOTICE ,$av);
	my $plan = spi_prepare(
			'INSERT INTO test(fint, ftxt, fvrchr)
			VALUES ($1, $2, $3);'
			,'unknown'
			,'unknown'
			,'unknown');
	spi_exec_prepared(
			$plan,@av[0],@av[1],@av[2]
			);
	spi_freeplan( $plan);
$$
LANGUAGE plperlu;

SELECT test2(ARRAY['1','адын','адын']);
-- ERROR:  failed to find conversion function from unknown to integer at line 12.
-- WTF
*/

CREATE OR REPLACE FUNCTION test3(a_val text[]) RETURNS VOID AS 
$$
	use strict;
	my @av = @{$_[0]};
	elog(NOTICE ,"@av");
	#my @ptypes = ['integer','text','varchar'];
	#elog(NOTICE ,"@ptypes");
	#NOTICE:  ARRAY(0x25efaa8)
	my $ptypes = ['integer','text','varchar'];
	my @ptypes = @$ptypes;
	elog(NOTICE ,"@ptypes");
	my @ptypes;
	#push @ptypes ,('unknown','unknown','unknown');	
	push @ptypes ,('integer','text','varchar');
	elog(NOTICE ,"@ptypes");
	my $plan = spi_prepare(
			'INSERT INTO test(fint, ftxt, fvrchr)
			VALUES ($1, $2, $3);'
			,@ptypes
			);
	spi_exec_prepared(
			$plan,@av
			);
	spi_freeplan( $plan);
$$
LANGUAGE plperlu;
SELECT test3(ARRAY['1','адын','адын']);
--ERROR:  failed to find conversion function from unknown to integer at line 15.
SELECT * FROM test;