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.
  • ## 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"};
        }
    }
    print O "}\n";
    close O;