Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Visualize RSS feeds with GraphViz::Data::Grapher

by ciderpunx (Vicar)
on Jun 14, 2011 at 12:46 UTC ( #909595=CUFP: print w/replies, xml ) Need Help??

A few weeks back I was browsing round Perlmonks as is my wont, when I came across planetscape's post How can I visualize my complex data structure?. In that post, planetscape mentions the GraphViz::Data::Grapher module for doing a sort of visual equivalent of Data::Dumper. I thought that was extremely cool and (of course) had to think up an excuse to try it out. So I made a RSS visualizer script. There are pictures in my flickr or a longer writeup and slideshow on my site. Here's the code, though.

#!/usr/bin/perl use strict; use warnings; use 5.10.0; use LWP::Simple; use XML::Feed; use XML::Simple; use GraphViz::Data::Grapher; use Readonly; Readonly my $usage => "$0 <URI of page with feeds>"; die $usage unless($#ARGV==0); my $page_url = $ARGV[0]; $page_url = "http://$page_url" unless ($page_url =~ /^https?:\/\//); my @feeds = XML::Feed->find_feeds($page_url); my $i = 0; for(@feeds) { my $xml = get($_); die "Couldn't fetch feed" unless defined $xml; my $feed = XMLin($xml); my $graph = GraphViz::Data::Grapher->new($feed); $graph->{LAYOUT}='fdp'; $graph->{RATIO}=1.618; # naturally print $graph->as_png("feed_structure-$i.png"); $i++; }

Replies are listed 'Best First'.
Re: Visualize RSS feeds with GraphViz::Data::Grapher
by deMize (Monk) on Jun 17, 2011 at 01:52 UTC
    Decent demonstration, but I'm still at a loss for it's usefulness, other than art. Still, I was not aware of Graphviz and might see it's use for a lot of parent/child/ancestry relationships :)


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://909595]
Approved by Corion
Front-paged by Corion
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2020-09-27 03:31 GMT
Find Nodes?
    Voting Booth?
    If at first I donít succeed, I Ö

    Results (142 votes). Check out past polls.