#!/usr/bin/env perl

use v5.36;
use autodie;
use constant {
    DATE => 0,
    AMOUNT => 1,
    CATEGORY => 2,
    DESCRIPTION => 3,
};

use Text::CSV;

my $csv_file = 'pm_11145274_tabulate_csv.csv';

# Dummy figures from 1st pass which you say you know how to do
my @max_widths = qw{10 6 15 55};

say 'Shrunk to fit 52-char-wide window';
tabulate($csv_file, \@max_widths, 52);
say 'Shrunk to fit 46-char-wide window';
tabulate($csv_file, \@max_widths, 46);

sub tabulate ($filename, $max_widths, $table_width) {
    state $des_weight = 0.7;
    my $table_available = $table_width - 4; # 4 pipe chars
    my $data_fmt = '%8d|'; # date: YYYYMMDD
    my $head_fmt = '%-8s|';
    $table_available -= 8;
    $data_fmt .= '%6.2f|'; # amount: | 12.34|
    $head_fmt .= '%-6s|';
    $table_available -= 6;
    my $max_cat_des = $max_widths->[CATEGORY] + $max_widths->[DESCRIPTION];
    my $cat_width = int($table_available * ($max_widths->[CATEGORY] / $max_cat_des));
    my $des_width = int($table_available * ($max_widths->[DESCRIPTION] / $max_cat_des));
    $des_width = int($des_width * $des_weight);
    $cat_width += $table_available - ($cat_width + $des_width);
    $data_fmt .= "%-${cat_width}.${cat_width}s|%-${des_width}.${des_width}s|\n";
    $head_fmt .= "%-${cat_width}s|%-${des_width}s|\n";

    my $csv = Text::CSV::->new();

    {
        open my $fh, '<', $filename;
        my $head_row = $csv->getline($fh);
        printf $head_fmt, @$head_row;

        while (my $data_row = $csv->getline($fh)) {
            printf $data_fmt, $data_row->[DATE] =~ y/-//dr,
                    $data_row->@[AMOUNT, CATEGORY, DESCRIPTION];
        }
    }

    return;
}