Tenho o seguinte código em ADVPL:
Static Function linhaJson(cTabela, cChave, lVerificaExclusao)
local cTipo
local xResult
local cJson := "{"
dbSelectArea("ZX1")
ZX1->(dbSetOrder(1))
ZX1->(dbGoTop())
ZX1->(dbSeek(cChave))
While !(ZX1->(EOF())) .AND. cChave == ZX1->(ZX1_FILIAL + ZX1_COD)
If ZX1->ZX1_TIPO == 'B'
xResult := &(conv2Json(ZX1->ZX1_CP_PRO, cTabela))
cTipo := ValType(xResult)//ValType(ZX1->ZX1_CP_PRO)
If cTipo == 'C'
if AllTrim(xResult) != "NULL"
cJson += '"' + AllTrim(Lower(ZX1->ZX1_CP_GEO)) + '":"' + ESCENVST(SUBS(AllTrim(xResult),1,ZX1->ZX1_TAM)) + '",'
EndIf
ElseIf cTipo == 'N'
cJson += '"' + AllTrim(Lower(ZX1->ZX1_CP_GEO)) + '":"' + AllTrim(STR(&(cTabela + "->"+ZX1->ZX1_CP_PRO))) + '",'
ElseIf cTipo == 'D'
cJson += '"' + AllTrim(Lower(ZX1->ZX1_CP_GEO)) + '":"' + AllTrim(DtoS(&(cTabela + "->"+ZX1->ZX1_CP_PRO))) + '",'
EndIf
ElseIf ZX1->ZX1_TIPO == 'S'
cJson += '"' + AllTrim(Lower(ZX1->ZX1_CP_GEO)) + '":"' + AllTrim(ZX1->ZX1_CP_PRO) + '",'
ElseIf ZX1->ZX1_TIPO == 'V'
cJson += '"' + AllTrim(Lower(ZX1->ZX1_CP_GEO)) + '":"",'
Else //ZX1->ZX1_TIPO == 'N'
cJson += ""
EndIf
ZX1->(dbSkip())
EndDo
ZX1->(dbCloseArea())
cJson := SUBS(cJson, 1, len(cJson) - 1)
If lVerificaExclusao //Se for excluso
cJson += ',"data_delete":"' + getCurrentDate() + '" '
EndIf
cJson += "}"
Return cJson
Sua obrigação única é minerar dados advindos de uma consulta no Protheus e transformar em um JSON para eu consumir no meu servidor. Ele é executado para cada linha de cada mineração que eu faço.
Eu creio que a iteração em ZX1
para resgatar as mesmas informações em 80.000 linhas da mesma consulta tenha algum peso na performance, porém não conheço nenhum profiler para ter certeza do quanto se está sendo dedicado a esse trecho de código em específico. Não tenho segurança para fazer medição de tempo dentro do código sem que essa medição não altere o objeto de medição e sua medida.
Pela iteração em
ZX1
, me refiro ao processo todo, desde a inicialização comdbSelectArea("ZX1")
até o teardown do laço comZX1-> (dbCloseArea())
Outro ponto de dúvida que tenho sobre performance é sobre substrings
, nesse trecho: cJson := SUBS(cJson, 1, len(cJson) - 1)
. Isso poderia gerar alguma fragmentação de memória alocada para as strings a mais do que eu já estou fragmentando. Novamente, não conheço profiler que o faça, e dessa vez não tenho conhecimento de como medir de dentro do código memória usada, chamadas de coletor de lixo nem fragmentação.
Então, reitero minha pergunta do título:
Como analisar o impacto em performance de um trecho de código?
A intenção aqui é evitar fazer alguma refatoração desnecessária no código, que no final das contas tenha pouco ganho e que seja difícil de fazer. Apenas para alterar os hotspots do trecho de código.
&(conv2Json(ZX1->ZX1_CP_PRO, cTabela))
) estaticamente sem precisar interpretar esse trecho de código... mas algo me diz que existem outros gargalos mais fáceis de serem removidos