Stories
Slash Boxes
Comments
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

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • Cool!
    I had done something like that for inheritance graphs (I know, nothing new).
    What do you feed this script with?
  • ## Or, since DOT is a simple format, the module-free version:

    #!/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