icao2num.pl to HTML.

index -|- end

Generated: Sat Oct 12 17:23:04 2013 from icao2num.pl 2012/06/16 603. text copy

#!/usr/bin/perl

use strict;
use warnings;

sub prt($) { print shift; }

sub icao2number {
   my ($icao) = @_;
   my($number,$n,$i);

   $icao=" ".$icao if(length($icao)==3);
   $icao="  ".$icao if(length($icao)==2);
   $icao="   ".$icao if(length($icao)==1);

   for($i=0;$i<length($icao);$i++)
   {
      $n=ord(substr($icao,$i,1));
                $number.=sprintf("%02d",$n);
   }
   return($number);
}

my $icao = 'YGIL';

my $num = icao2number($icao);

prt(" ICAO [$icao] gives number [$num]\n");

$icao = 'ZZZZ';
$num = icao2number($icao);
prt(" ICAO [$icao] gives number [$num]\n");

index -|- top