nathanhaigh

#!/usr/bin/perl
# Usage: gunzip -c graph.asqg.gz | asqg2dot.pl ['<node_label_regex>'] > graph.dot

use strict;
use warnings;

my $bidirected = 1;
my $highlight_vertex_regex = shift @ARGV || '';

my %vertex_labels;