Dump all Vault KV

dump-vault-kv.pl

#!/usr/bin/perl -w
use strict;
use JSON -support_by_pp;
use Data::Dumper;

# Don't forget to login to vault first

sub rec {
  my ($path) = @_;
	my $json = JSON->new->pretty;
	my $json_text = `vault list -format=json $path`;
	my $json_object = $json->decode($json_text);
	for my $item( @{$json_object} ){
    		if (substr($item, -1) eq "/") {
			#It's a folder, deep dive into
    			rec("$path$item")
		} else {
			#It's a key, let's read it
			print `vault read -format=json $path$item`
		}
	}
}

rec("secret/");