- or download this
my $graph_links = join ('', @graph_links);
@graph_links = split (/\s+/, $graph_links);
- or download this
## don't bother with @points as it looks to be redundant
push @graph_links, ( /^(\d{1,2})$/ ?
...
:
undef
);
- or download this
for my $p (@graph_links) {
next unless defined $p;
print ...
}