-- Function: file_read2(text, int4, int4)

-- DROP FUNCTION file_read2(text, int4, int4);
CREATE OR REPLACE FUNCTION file_read2(text, int4, int4)
RETURNS bytea AS
$BODY$
my $file = @_[ 0 ]; # Имя файла
my $start_pos = @_[ 1 ]; # Смещение от начала
my $length = @_[ 2 ]; # Прочесть кол-во байт

my $f,$s,$v,$ret;
my $c;

$ret = '';
#$c =  0 ;

open($f,"<".$file);
seek($f,$start_pos, 1 );
binmode($f);
while($length >  0 )
{
read($f,$s, 1 );
$v = unpack("C",$s);
if ( ($v>= 0  && $v<= 31 ) || ($v>= 127  && $v<= 255 ) || ($v== 39 ) || ($v== 92 ))
{
my $substr;
$substr = sprintf("%03o",$v);
$ret .= "\\".$substr;
}
else
{
$ret .= $s;
}
$length--;
} # while


close($f);

return ($ret); 

$BODY$
LANGUAGE 'plperlu' VOLATILE;
ALTER FUNCTION file_read2(text, int4, int4) OWNER TO postgres;

create or replace function save_file(filename text, data bytea)
returns void language plperlu as $body$
  use strict;
  my ($filename, $data) = @_;
  $data =~ s!\\(\d{ 3 })! chr(oct($ 1 )) !eg;
  open my $f, '>', $filename or die "can't create file '$filename'";
  print $f $data;
$body$;
revoke execute on function save_file(filename text, data bytea) from public;

binmode($f);

close($f);

create or replace function save_file(filename text, data bytea)
returns void language plperlu as $body$
  use strict;
  my ($filename, $data) = @_;
  $data =~ s!\\(\d{ 3 })! chr(oct($ 1 )) !eg;
  open my $f, '>', $filename or die "can't create file '$filename'";
  binmode($f);
  print $f $data;
  close($f);
$body$;
revoke execute on function save_file(filename text, data bytea) from public;

$data =~ s!\\(\d{ 3 })! chr(oct($ 1 )) !eg;

$data =~ s!\\(\d{ 3 })! chr(oct($ 1 )) !eg;

$data =~ s!\\(\d{ 3 })! chr(oct($ 1 )) !eg;

$data =~ s!\\\\(\d{ 3 })!chr(oct($ 1 )) !eg;

create or replace function save_file(filename text, data bytea)
returns void language plperlu as $body$
  use strict;
  my ($filename, $data) = @_;
  $data =~ s!\\(\d{ 3 })! chr(oct($ 1 )) !eg;
  open my $f, '>', $filename or die "can't create file '$filename'";
  print $f $data;
$body$;
revoke execute on function save_file(filename text, data bytea) from public;

$data =~ s!\\(\d{ 3 })!chr(oct($ 1 )) !eg;

$data =~ s!\\(\d{ 3 })!chr(oct($ 1 )) !eg;

create or replace function save_file(filename text, data bytea)
returns void language plperlu as $body$
  use strict;
  my ($filename, $data) = @_;
 $data =~ s!\\\\!'\\'!eg;
$data =~ s!\\(\d{ 3 })! chr(oct($ 1 )) !eg;
  open my $f, '>', $filename or die "can't create file '$filename'";
  binmode $f;
  print $f $data;
  close $f;
$body$;
revoke execute on function save_file(filename text, data bytea) from public;