0

OS ファイルシステムからファイルを読み取り、その内容を表として出力したいと考えています。最も望ましい方法は、plperl を使用することです (一時テーブルを使用する必要がなく、plperl はほとんどの postgres インストールにデフォルトで組み込まれているため)。残念ながら、私は perl に詳しくなく、機能が動作しません。ファイルは読み取られますが、何も印刷されません。

関数本体を確認して、どこが間違っているのか教えていただけますか?

    CREATE OR REPLACE FUNCTION public.file_read(text)
  RETURNS table(maj int, min int, dev text, reads bigint, rmerges bigint, rsects bigint, rspent bigint, writes bigint, wmerges bigint, wsects bigint, wspent bigint, inprog bigint, spent bigint, weighted bigint) AS
  $$
    open (datfile, $_[0]);
    while ($line = <$datfile>) {
      chomp $line;
      @line = split(/\s+/, $line);

      return_next({maj => $line[0], min => $line[1], dev => $line[2],
                   reads => $line[3], rmerges => $line[4], rsects => $line[5], rspent => $line[6],
                   writes => $line[7], wmerges => $line[8], wsects => $line[9], wspent => $line[10],
                   inprog => $line[11], spent => $line[12], weighted => $line[13]
                  });
    }
    close (datfile);
    return undef;
  $$ LANGUAGE plperlu;

# select * from file_read('/proc/diskstats');
 maj | min | dev | reads | rmerges | rsects | rspent | writes | wmerges | wsects | wspent | inprog | spent | weighted 
-----+-----+-----+-------+---------+--------+--------+--------+---------+--------+--------+--------+-------+----------
(0 rows)

ありがとう！

4

1 に答える 1

0

ここで説明されている Pavel Stěhule による関数の例を使用して問題を完全に解決しました。

于 2016-12-18T12:31:12.657 に答える