Skip to content

Instantly share code, notes, and snippets.

View pangyre's full-sized avatar

Ashley Pond V pangyre

View GitHub Profile
@pangyre
pangyre / gist:fe0688a40993a0deee9a84f99c98a04d
Last active June 16, 2019 18:51 — forked from pjlsergeant/gist:2556399
Concise map-reduce in Perl
#!/usr/bin/env perl
use strictures;
use List::Util "reduce";
use Path::Tiny;
use YAML;
# Given a list of filenames, return a hash of each word and the number
# of times it occurs.
my $reduced = word_count(@ARGV);