{"body":"#!/usr/bin/env raku\n\n=begin pod \n\nThis script lets ypu adjust items in the budgetcatmap.txt file.\n\n=end pod \n\nuse MONKEY-SEE-NO-EVAL;\n\nconstant $oldcats = 'budgetcatmap-old.txt';\nconstant $newcats = 'budgetcatmap-new.txt';\n\nmy %oldcats = EVAL slurp $oldcats;\nmy %roldcats = %oldcats.invert;\n\nmy %newcats = %oldcats;\nsay %newcats.keys;\n\nsay \"arrayifying & uniquifying all %newcats values\";\n\nfor %newcats.keys -> $key {\n   %newcats{$key} = [%newcats{$key}.unique]; \n}\n\nsay \"type <<%newcats>> to see & update Hash, <<exit>> to write back\";\nrepl;\n\n$newcats.IO.spurt: %newcats.raku; ","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/IOEmDB48","modified":1742568436,"id":"IOEmDB48","size":578,"lines":29,"own_paste":false,"theme":"","date":1742568436}