Perl 함수는 main 함수로 1을 반환하기 전에 "대기"합니다.

Question

주 함수에서 MySQL 데이터베이스 작업을 수행하는 여러 함수를 호출하는 Perl 스크립트가 있습니다. 그러나 전체 스크립트가 너무 느리고 로그 메시지를 인쇄하여 컨트롤을 주 기능으로 되돌리기 전에 마치 "대기 중"인 것처럼 보였습니다.

MySQL의 processlist를 보면 NULL 정보가 들어간 Sleep 프로세스가 나타납니다. Perl 스크립트 자체가 명령을 수행했지만 Perl 함수가 메인 함수로 돌아 가지 않습니다. , 모든 것이 성공적으로 완료되었습니다.

예 : log2와 log3 사이에,이 시간까지의 MySQL의 PROCESSLIST의 수면 과정이

use IO::Handle; 
STDERR->autoflush(1); 
STDOUT->autoflush(1); 

sub SomeFunction{ 
    // writing into MySQL database 
    print localtime()."log2"; 
    return 1; 
} 

print localtime()."log1"; 
&SomeFunction(); 
print localtime()."log3"; 

지연입니다.

이 문제의 원인은 무엇이며 어떻게이 스크립트의 성능을 향상시킬 수 있습니까?

Answer 1

Perl은 범위 종료시 아무 것도 기다리지 않습니다. 그러나 범위를 종료하면 임의의 코드가 실행될 수 있습니다. 예를 들어 스코프를 종료하면 객체가 참조 해제되고 소멸 될 수 있습니다. 소멸자를 호출해야합니다. other means도 있습니다.