dgg movies by decade

DGG Movie List - Ordered by Date.csv

mobies.awk

#!/usr/bin/env -S gawk --csv -f
# NOTE: takes as input the csv of movies sorted by date

{ $1=rtrim($1) }

$1 ~ /\([0-9]+\)$/ {
    pos = length($1)-5
    year = substr($1, pos+1, 4)
    name = rtrim(substr($1, 1, pos-2))
    movies[year-(year%10)][name] += 1
    name2year[name] = year
}

END {
    for (year in movies) {
        for (name in movies[year])
            print year, colorize(movies[year][name]), name
    }
}


function colorize(s) {
    switch (s) {
    case 1: return s
    case 2: return orange(s)
    default: return red(s)
    }
}

function red(s) { return sprintf("\033[91m%s\033[39m", s) }
function orange(s) { return sprintf("\033[33m%s\033[39m", s) }
function rtrim(s){ return gensub(/\s+$/, "", "g", s) }