Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Visualize RSS feeds with GraphViz::Data::Grapher

by ciderpunx (Vicar)
on Jun 14, 2011 at 12:46 UTC ( [id://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
Domain Nodelet?
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?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2024-06-14 23:10 GMT
Find Nodes?
    Voting Booth?

    No recent polls found

    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.