git.sesse.net Git - videoredirector/blob - Mirror/AS.pm

   1 package Mirror::AS;
   2
   3 use strict;
   4 use warnings;
   5
   6 sub convert {
   7     my $as = shift;
   8
   9     $as =~ s/^AS//;
  10
  11     if ($as =~ m/(\d+)\.(\d+)/) {
  12         $as = unpack('N', pack('nn', $1, $2));
  13     }
  14
  15     return $as;
  16 }
  17
  18 1;