проблемы с «явным именем пакета» - PullRequest
Новая
       18

проблемы с «явным именем пакета»

0 голосов
/ 21 апреля 2011

Хорошо, я знаю, что это может показаться распространенной проблемой для людей, пришедших с других языков - в моем случае C / C ++ и PHP. Однако после того, как я проверил, проверил и перепроверил, мое разочарование одолело меня.

Я использую - 

use strict;
use warnings;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

Вот подфункция, где возникают ошибки - 

#
# function MergePolygonCircle
#
# parameters
#   Polygon - 2 dimensional array reference
#   Circle - 2 dimensional array reference
#   CircleCenter - array
#   Radius - circle radius float
#
# returns - nuthin
#
sub MergePolygonCircle
{
    my ($Polygon, $Circle, $CircleCenter, $Radius) = @_;
    my $BuffIndex = 0;
    my $SegIndex = 0;
    my $FirstBuffIndex = -1;
    my $FirstCircIndex = -1;
    my $EndBuffIndex = -1;
    my $EndCircIndex = -1;
    my $PolygonLength = @$Polygon; # de-referencing the polygon array to get its size
    my $CircleLength = @$Circle;

    # check to see if the center point of the circle is inside the polygon
    if(GetDistance(@$Polygon[0][0], @$Polygon[0][1], @$CircleCenter[0], @$Ci   rcleCenter[1]) <= $Radius)
    {
        # at this point, the opposite side can only be outside of this circle
        my $Offset = ceil($PolygonLength / 2)-1;

        # remove the end point
        my $EndPoint = pop(@$Polygon);
        # extract the section before the offset
        my $Points = splice(@$Polygon, 0, $Offset);
        # put the points back at the beginning
        splice(@$Polygon, $PolygonLength - $Offset - 1, 0, @$Points);

        # reapply the end point
        push(@$Polygon, @$Polygon[0]);
    }

    # Find the start and end intersections
    for($BuffIndex = 0; $BuffIndex < $PolygonLength-1; $BuffIndex++)
    {
        for($SegIndex = 0; $SegIndex < $CircleLength-1; $SegIndex++)
        {
            if(SegmentsIntersect(@$Polygon[$BuffIndex][0], @$Po   lygon[$BuffIndex][1], @$Polygon[$BuffIndex+1][0], @$Polygon[$BuffIndex+1][1],
                            @$Circle[$SegIndex][0], @$Circle[$SegIndex][1], @$Circle[$SegIndex+1][0], @$Circle[$SegIndex+1][1]))
            {
                if($FirstBuffIndex == -1)
                {
                    $FirstBuffIndex = $BuffIndex;
                    $FirstCircIndex = $SegIndex;
                    continue;
                }
                else
                {
                    if($SegIndex != $FirstCircIndex)
                    {
                        $EndBuffIndex = $BuffIndex;
                        $EndCircIndex = $SegIndex;
                    }
                }
            }

            if($FirstBuffIndex > -1 && $EndBuffIndex > -1) break;
        }
        if($FirstBuffIndex > -1 && $EndBuffIndex > -1) break;
    }

    if($FirstBuffIndex > -1 && $EndBuffIndex > -1 && $FirstCircIndex > -1 && $End   CircIndex > -1)
    {
        $FirstBuffIndex++;
        $EndBuffIndex++;
        $FirstCircIndex++;
        if($FirstCircIndex < $EndCircIndex) $EndCircIndex++;

        # remove redundant segments in the main buffer
        splice(@$Polygon, $FirstBuffIndex, ($EndBuffIndex - $FirstBuffIndex));
        # insert the new segments
        if($FirstCircIndex < $EndCircIndex)
        {
            # remove the tail
            $Tail = splice(@$Polygon, $FirstBuffIndex);
            # re-join here
            push(@$Polygon,
                splice(@$PolyCircle, $FirstCircIndex, $EndCircIndex - $FirstCircIndex)),
                @$Tail);
        }
        if($EndCircIndex < $FirstCircIndex)
        {
            # remove the tail
            $Tail = splice(@$Polygon, $FirstBuffIndex);
            $CircTop = splice(@$PolyCircle, $FirstCircIndex);
            $CircTail = splice(@$PolyCircle, 0, $EndCircIndex);
            # stitch them all together
            push(@$Polygon, @$CircTop, @$CircTail, @$Tail);
        }
    }
};

Я получаю ошибки, такие как - 

"my" variable $PolygonLength masks earlier declaration in same scope
Global symbol "$BuffIndex" requires explicit package name
Global symbol "$PolygonLength" requires explicit package name
Global symbol "$SegIndex" requires explicit package name
Global symbol "$CircleLength" requires explicit package name
Global symbol "$Polygon" requires explicit package name

Я не вижу, откуда происходят эти ошибки. Я понимаю, что это немного длинно, но в моем последнем вопросе меня попросили "настоящий" код ...

Обновление

Извините, я забыл упомянуть, что я использую версию 5.12.3 через CGI (apache под windows)

Ответы [ 2 ]

1 голос
/ 21 апреля 2011

Похоже, что вы пишете слишком много кода C: -)

, если для операторов в Perl требуется блок.

"break" в C пишется как "последний""в Perl. 

if($FirstBuffIndex > -1 && $EndBuffIndex > -1) {last};

Кроме того, 

@$Polygon[0][0]

не будет работать, вы, вероятно, хотите 

$Polygon->[0][0]
1 голос
/ 21 апреля 2011

В этой строке есть синтаксические ошибки: 

if(GetDistance(@$Polygon[0][0], @$Polygon[0][1], @$CircleCenter[0], @$Ci   rcleCenter[1]) <= $Radius)

Если $Polygon является ссылкой на двумерный массив, вы должны использовать $Polygon->[0][0] или ${$Polygon}[0][0]. См. perldoc perlref .

...