Turns event invite information into graphviz files

event-tree.pl

#!/usr/bin/perl -w
use 5.010;
use strict;
use warnings;
use autodie;

local $/ = q{<li class="fbProfileBrowserListItem uiListItem">};

<>; # Discard leader

say "digraph invites {";

while (<>) {

    my ($name)    = /data-hovercard=[^>]+>([^<]+)/;
    my ($invite)  = /aria-label="([^"]+)/;


    if ($invite) {
        $invite =~ s/^[^:]+:\s*//;  # Strip leading cruft;
        $invite =~ s/\s*invited .*//;
        my @invitees = split(/\n/,$invite);

        foreach (@invitees) { 
            $_ = "Paul Fenwick" if $_ eq "You";
            say qq{    "$_" -> "$name";};
        }

        # say "== $name (@invitees) ==";
    } else {
        next;
        # say "== $name (source) ==";
    }

    if (not $name) { say "FAILED TO PARSE: \n$_\n"; }

}

say "}";