小编lot*_*ths的帖子

我是Perl的新手,我不想使用List :: Util max函数来查找给定数组的最大值.

当我测试下面的代码时,它只返回数组的第一个值,而不是最大值.

sub max
{
    my @array = shift;
    my $cur = $array[0];
    foreach $i (@array)
    {
        if($i > $cur)
        {
            $cur = $i;
        }
        else
        {
            $cur = $cur;
        }
    }
    return $cur;
   }

在以下代码中,在任何给定时间点屏幕上不只有一个圆圈.我想解决这个问题,使其看起来只有一个圆圈,而不是在鼠标光标所在的位置留下涂抹痕迹.

import pygame,sys
from pygame.locals import *
pygame.init()

screen = pygame.display.set_mode((640,400),0,32)

radius = 25
circle = pygame.Surface([radius*2]*2,SRCALPHA,32)
circle = circle.convert_alpha()
pygame.draw.circle(circle,(25,46,100),[radius]*2,radius)

while True:
    for event in pygame.event.get():
        if event.type == QUIT:
            pygame.quit()
            sys.exit()

    screen.blit(circle,(pygame.mouse.get_pos()[0],100))

    pygame.display.update()
    pygame.time.delay(10)

#!usr/bin/perl
@array = ();
open(myfile,"sometext.txt");
while(<myfile>)
{
    chomp;
    push(@array,[split(" ")]);
}
close(myfile);
print @array[0];

它不是在这个多维数组中打印第一个数组的元素,而是输出十六进制(？)指针引用.如果有人知道我如何打印这个数组,请发布如何,将非常感谢.