GD::Graph::pie Hiiilfe

[Raik]

Hallo, sottosopra!

...ich bin noch nicht wirklich gut in Perl ...
Kannst Du mir bitte einen Tip geben ???

ich hab auch keine ahnung von perl, ich formatiere nur den quelltext immer:

###Draw the data slices###
sub draw_data
    {
    my $self = shift;

my $total = 0;
    my @werte = $self->{_data}->y_values(1);
    for (@werte)
        {
        $total+=$_
        }
    return $self->set_error("Pie data total is <=0")
    unless $total>0;

my $ac = $self->{acci};
    my $pb = $self->{start_angle};

for (my $i=0; $i<@werte; $i++)
        {

###Werte zeilenweise auslesen###

while (@werte = $STH->fetchrow_array())
            {
            push @res, @werte;
            }

$STH->finish();
        $DBH->disconnect;

###Data-Array  als Grafikgrundlage###

my @data = (
                    [$res[0], $res[10], $res[20]],
                    [$res[1], $res[11], $res[21]],
                    [$res[2], $res[12], $res[22]],
                    [$res[3], $res[13], $res[23]],
                    [$res[4], $res[14], $res[24]],
                    [$res[5], $res[15], $res[25]],
                    [$res[6], $res[16], $res[26]],
                    [$res[7], $res[17], $res[27]],
                    [$res[8], $res[18], $res[28]],
                    [$res[9], $res[19], $res[29]]
                    );

###Grafikeigenschaften festlegen###

my $my_graph = GD::Graph::pie->new(300,300);

$my_graph->set(title=>'Kollektion');

###Ausgabe###

my $format = $my_graph->export_format;
        print header("image/$format");
        binmode PNG;
        print $my_graph->plot(@data);

und dabei fällt mir noch auf, dass nicht nur die klammer von
for (my $i=0; $i<@werte; $i++)
nicht wieder geschlossen wird, sondern oben drüber auch die von
sub draw_data
nicht.

ob es daran liegt, kann ich also nur raten. aber gewöhn dir an, solche routinen so oder ähnlich einzurücken. das hilft, den überblick zu behalten.

freundl. Grüsse aus Berlin, Raik