perlquestion
PetaMem
<p>Hi!</p>
<p>Given two coderefs. Is there an (elegant) way to compare the code they're pointing to?</p>
<p>No, I don't need any fancy stuff like solving the halting problem. ;-) I do not even need to know if the code is equivalent. It would be completely sufficient if these</p>
<code>
my $cr1 = sub {
$foo = $bar * $baz;
}
my $cr2 = sub {
$foo = $bar * $baz;
}
</code>
<p>Would be considered "same". Ideally with the whitespaces being irrelevant. All mutations, invariants etc. can safely be considered 'different'. i.e.</p>
<code>
my $cr3 = sub {
$mul = $op1 * $op2;
}
my $cr4 = sub {
$foo = $baz * $bar;
}
</code>
<p>To sum up: It would be sufficient to have a function that - for two given coderefs (pointing to different addresses) - would just return "identic" if they'd be the same list of opcodes.</p>
<p>Howto? B:: something?</p>
<p>Thank you for your guidance.</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-89299">
<p><font size=-1>Bye<br>
PetaMem</font> <font size=-2> All Perl: <a href="http://www.petamem.com">MT, NLP, NLU</a></font>
</div></div>