PHP para Perl
A mesma rotina, escrita à mão em PHP e em Perl. Ela está aqui para você ver o que muda e o que continua igual antes de alguém te passar um preço.
O que você tem · PHP
<?php
function interest($balance, $rate) {
return round($balance * $rate, 2);
}No que isso vira · Perl
sub interest {
my ($balance, $rate) = @_;
return sprintf('%.2f', $balance * $rate);
}Ler dois arquivos lado a lado é a metade fácil. A metade difícil é o resto do sistema: que arquivos nada mais chama, que job escreve às 02:00 o registro que outro lê depois e se a reescrita ainda produz os números que seus auditores viram no mês passado. Esse trabalho roda na nossa plataforma com um engenheiro acompanhando, e começa com uma olhada na sua base de código.
Quando o conversor deixa de bastar
Comparar dois arquivos é a metade fácil. Nada nesta página consegue dizer que arquivos nada mais chama, que job batch escreve às 02:00 o registro que outro lê depois, nem se a versão reescrita ainda produz os números que seus auditores viram no mês passado. O diagnóstico responde isso sobre a sua base de código real.