Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

graphing your perl scripts (after brian d foy)

by boo_radley (Parson)
on Dec 03, 2003 at 21:02 UTC ( #312007=CUFP: print w/replies, xml ) Need Help??

brian d foy recently released a text density widget that I thought was pretty neat. After hacking out my own, I wondered if it would be possible to make one that would give a graphical representation of syntactically interesting things, rather than just text density.

After finding -- and abusing -- the delightful Syntax-Highlight-Perl, I have created just such a thing. I decided to copy the source code for S::H::P into a new project and bend it to my whims rather than subclassing it because the changes I made were so specific to this particular idea. I tried to stick with the same color scheme ,blue for unimportant things up to red for more important, but it can stand to be tinkered with.

usage : $0 perlfile pngfile
update fixed code... update well, heck. I've apparently run up against some sort of character limit in perlmonks. I'll post a link to the code when I get home from work. Sorry, folks. Nothing to see here right now.

  • Comment on graphing your perl scripts (after brian d foy)

Replies are listed 'Best First'.
Re: graphing your perl scripts (after brian d foy)
by boo_radley (Parson) on Jan 21, 2004 at 03:39 UTC


      The reason I ask is that I often get faced with large amounts of evil code. Finding ways to get a quick overview of where areas of complexity might live is therefore interesting to me.

Re: graphing your perl scripts (after brian d foy)
by adrianh (Chancellor) on Jan 20, 2004 at 11:34 UTC
    I'll post a link to the code when I get home from work

    Home yet?

    (curious to see the code:-)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://312007]
Approved by simon.proctor
[Eily]: same as many/much, few/little
[Discipulus]: so my 'less' usage sounded not so correct? 'fewer' was more appropriate? i take a note too
Discipulus $ENV{PAGER}='fewer '
[Corion]: Discipulus: Hahahaa! ;)
[Corion]: This would be a great April fools joke, since it certainly makes sense to show fewer pages on screen :)
[marioroy]: greetings all

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (6)
As of 2018-01-23 09:15 GMT
Find Nodes?
    Voting Booth?
    How did you see in the new year?

    Results (242 votes). Check out past polls.