[GTER] Programa perl para conversão de asn dot/asn plain

[willian pires]

Pessoal um programinha em perl para ajudar em nossas conversões diárias.
Está bem inteligível mas se alguem quiser ajuda comento o codigo.

#!/usr/bin/perl
sub asnconverter {        my $asn = shift;        use constant DATA => 65536;
        if(index($asn,".") !=-1){                my ($aspart1,$aspart2)=split( /\./,$asn);                return int(($aspart1*DATA)+$aspart2);        }else{                $asnpart1 = int($asn / DATA);                $asnpart2 = $asn - ($asnpart1*DATA);                return "$asnpart1.$asnpart2";        }}
print &asnconverter("262760");print "\r\n";print &asnconverter("4.616");print "\r\n";