2009/8/11 Mário Oshiro <[email protected]>
> Ola.
> Pessoal, eu tenho o seguinte script em perl :
> /
> #!/usr/bin/env perl
> use IO::Socket;
> my $sock = new IO::Socket::INET (
> PeerAddr => 'localhost',
> PeerPort => '7070',
> Proto => 'udp',
> );
> die "Could not create socket: $!\n" unless $sock;
> print $sock "$1";
> close($sock);
>
>
Não conheço muito de perl mas creio que um bom começo seria:
create or replace function open_socket() returns void as
$$
use IO::Socket;
my $sock = new IO::Socket::INET (
PeerAddr => 'localhost',
PeerPort => '7070',
Proto => 'udp',
);
die "Could not create socket: $!\n" unless $sock;
print $sock "$1";
close($sock);
return;
$$
language plperlu;
Também uma olhada em [1] pode ser útil.
[1] http://www.postgresql.org/docs/8.4/interactive/plperl.html
--
Fabrízio de Royes Mello
>> Blog sobre PostgreSQL: http://fabriziomello.blogspot.com
_______________________________________________
pgbr-geral mailing list
[email protected]
https://listas.postgresql.org.br/cgi-bin/mailman/listinfo/pgbr-geral
