<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl

use strict;
use warnings;
use lib qw/lib/;
use Urb::Dom;
use YAML;
use 5.010;

say STDOUT join ', ', ('Path', 'Plot Area', 'Gross Area', 'Plot Ratio', 'Beds', 'Wcs');
for my $path_yaml (@ARGV)
{
    my $dom = Urb::Dom-&gt;new;
    $dom-&gt;Deserialise (YAML::LoadFile ($path_yaml));

    my $area_plot = $dom-&gt;Area;
    my $area_internal = $dom-&gt;Area_Internal;
    my $count = $dom-&gt;Count;

    say STDOUT join ', ', ($path_yaml, $area_plot, $area_internal, $area_internal/$area_plot, scalar @{$count-&gt;{b}}, scalar @{$count-&gt;{t}});
}

0;
</pre></body></html>