From f9e94aec25ae985fe4fe2f69d9144cc08287f1ae Mon Sep 17 00:00:00 2001 From: "Bradley M. Kuhn" Date: Tue, 10 Dec 2019 09:38:02 -0800 Subject: [PATCH] Add YAML output. --- scripts/t-shirt-label-print.plx | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/scripts/t-shirt-label-print.plx b/scripts/t-shirt-label-print.plx index 08ae138..564b794 100644 --- a/scripts/t-shirt-label-print.plx +++ b/scripts/t-shirt-label-print.plx @@ -186,6 +186,11 @@ print LIST "\\hline \n\n", '\end{tabular}',"\n\n\nOVERALL SENDING COUNT: $overal close LIST; close LABELS; +open(my $yamlFH, '>', 'address.yml'); +use YAML::Tiny; +my $yaml = YAML::Tiny->new(\@allAddresses); +$yaml->write('address.yml'); + ############################################################################### # # Local variables: