NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.
All the Perl that's Practical to Extract and Report
--Mark Hahn, <hahn@neurocog.lrdc.pitt.edu>
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
Re: Graphing module usage (Score:1)
I had done something like that for inheritance graphs (I know, nothing new).
What do you feed this script with?
simple format (Score:1)
#!/usr/bin/env perl
$png = shift || 'use.png';
open O, "| dot -Tpng > $png" or die $!;
print O "digraph g {\n";
while (<>) {
if (/^Modules used from (.*):/) {
@stack = ($1);
} elsif (/^((?: )+)(\S+),/) {
$idx = length($1) / 2;
$stack[$idx] = $2;
print O qq{"$stack[$idx-1] -> $2;\n"};
}
}
pri