fehler in perlscript zum dependencies anzeigen

[d4mi4n]

hier ein script um sich grafisch deps anzeigen zu lassen, leider kommt bei mir immer
bad name in 'e (oder so ähnlich) in zeile 67
double-p hat sichs mal angeschaut aber keinen fehler entdeckt, kann bitte jemand das script bei sich ausführen und sich melden obs geht?



#!/usr/bin/perl
#
# $RCSfile: portgraph,v $
#
# Copyright 2002 Christopher G. BeHanna, all rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met:
#
# * Redistributions of source code must retain the above copyright notice,
# this list of conditions and the following disclaimer.
#
# * Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY CHRISTOPHER G. BEHANNA ("THE AUTHOR") "AS IS"
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE THE AUTHOR BE LIABLE FOR ANY DIRECT,
# INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#
# $Author: behanna $
# $Date: 2003/03/09 07:31:59 $
# $Revision: 1.1 $
# $Source: /raid5/chris_cvs/personal/utils/portgraph/portgraph,v $
#
# Analyze FreeBSD installed ports dependencies.
#

use POSIX;
use GraphViz;
use strict;

my $usage = "portsgraph [-g] [dbdir]\n" .
"\t-g Generate image of dependency graph, named portdeps.png\n";

my $graphics = "false";
my $pngfile = "portdeps.png";

if (scalar(@ARGV) < 1 or $ARGV[0] =~ "/\-help/") {
die "$usage\n";
}

if ($ARGV[0] eq "-g") {
$graphics = "true";
shift;
}

#
# Yes, we grovel through all the +REQUIRES files. It would be faster to take
# advantage of portupgrade's pkgdb, but portupgrade doesn't have a "show me only
# the immediate dependencies rather than all the recursive dependencies" mode.
#
my $dbdir = $ARGV[0] || "/var/db/pkg";

my %node = (
'name' => undef,
'deps' => undef,
'parents' => undef,
'seen' => undef
);

my $blanks = " ";
my %depshash = ();

my $dbdirp = POSIX:pendir($dbdir) or die "Couldn't open $dbdir: $!\n";
my @portslist = POSIX::readdir($dbdirp);
POSIX::closedir($dbdirp);

my $line = "";
my $port = "";

for my $i (@portslist) {
$port = $i;
$port =~ s/\-[0-9].*$//;

my $reqfile = "$dbdir/$i/+REQUIRED_BY";

if ( -e "$reqfile" ) {
open(REQFILE, $reqfile) or die "Couldn't open $reqfile: $!\n";

while ($line = <REQFILE>) {
chomp($line);
$line =~ s/\-[0-9].*$//;
push(@{$depshash{$line}}, $port);
}

close( REQFILE );
}
}

#
# Now we have a hash of arrays. Each key is a port, and each value is a
# list of that port's dependencies.
#

if (1 eq 0) {
for my $i (keys %depshash) {
print "$i depends upon:\n";

for my $j (@{$depshash{$i}}) {
print "\t$j\n";
}
}
}

#
# If we're generating a PNG file, build it and get out.
#

if ($graphics eq "true") {
my $graph = GraphViz->new('nooverlap' => 1,
'directed' => 1,
'concentrate' => 1);

for my $i (keys %depshash) {
$graph->add_node($i);
}

for my $i (keys %depshash) {
for my $j (@{$depshash{$i}}) {
$graph->add_edge($i => $j,
'color' => 'black',
'dir' => 'forward',
'arrowhead' => 'normal');
}
}

open(PNGFILE, ">$pngfile") or die "$pngfile: $!\n";
binmode(\*PNGFILE);

$graph->as_png(\*PNGFILE);

close( PNGFILE );

exit 0;
}

#
# Build a dependency tree. Start by making a node for each project.
#

my %deptree = ();

for my $i (keys %depshash) {
%{$deptree{$i}} = %node;
$deptree{$i}{'name'} = $i;
}

#
# Now, for each dependency listed in the original hash of arrays, insert the
# reference to that dependency's node in the port's dependency list.
#

for my $i (keys %deptree) {
for my $j (@{$depshash{$i}}) {
if (not defined $deptree{$i}{'deps'}) {
$deptree{$i}{'deps'} = {};
}

$deptree{$i}{'deps'}->{$j} = $deptree{$j};

if (not defined $deptree{$j}{'parents'}) {
$deptree{$j}{'parents'} = {};
}

$deptree{$j}{'parents'}->{$i} = $deptree{$i};
}
}

#
# Identify the root(s). These are nodes that have no parents.
#

my @roots = ();

for my $i (keys %deptree) {
if (not defined $deptree{$i}{'parents'}) {
push(@roots, ($deptree{$i}));
}
}

#
# Print the tree.
#
my $indent = 0;

if ($graphics eq "false") {

for my $i (@roots) {
printdeps($i);
}
}


#####
#
# sub printdeps
#
# Param: reference to a node.
#
#####

sub printdeps {
my $root = shift;

$indent+=2;

# if (defined $root->{'seen'}) {
# print substr($blanks, 0, $indent) .
# "Cycle detected for node $root->{'name'}!\n";
# $indent--;
# return;
# }

print substr($blanks, 0, $indent) . "$root->{'name'}\n";
$root->{'seen'} = "true";

for my $i (keys %{$root->{'deps'}}) {
printdeps($root->{'deps'}->{$i});
}

$indent-=2;
}

 

[olf]

Bis auf das der smiley den Code kaputt gemacht hat funktioniert das Script bei mir.
Welche Fehlermeldung kommt denn?

 

[d4mi4n]

bad name e in line 67
so irgendwie, ichkanns grad nicht aufrufen da ich am windows sitze

in diesem block ist zeile 67

my %node = (
'name' => undef,
'deps' => undef,
'parents' => undef,
'seen' => undef
);

link zum orginal:

http://lists.freebsd.org/pipermail/freebsd-ports/2003-December/007099.html