prom_file_exporter.pl

gistfile1.txt

#!/usr/bin/env plackup

# grab all the .prom files from PROM_FILE_EXPORTER_METRICS_DIR PATH hand them to
# anyone that asks

use warnings;
use strict;

use Path::Tiny;

my @paths = map { path($_) } (split ':', ($ENV{PROM_FILE_EXPORTER_METRICS_PATH} // ''));
die "PROM_FILE_EXPORTER_METRICS_PATH not set\n" unless @paths;

sub app {
  sub {
    my $w = shift->([200, []]);

    for my $path (@paths) {
      next unless $path->exists;
      $w->write($_->slurp) for $path->children(qr/\.prom$/);
    }

    $w->close;
  };
}

\&app;