Интервал в префиксы. Простая программа преобразования.

[nw_wind]

Немного програзма.

Операторы связи часто обмениваются друг с другом интервалами или диапазонами номеров. Например, диапазон это 4167700-4167899. А вот телефонные станции оперируют префиксами. То есть теми частями номера, которые в этом интервале не изменяются, в последующие цифры могут быть любыми. В вышеупомянутом примере это будет два префикса 41677 и 41678. Перелопачивать ручками десятки интервалов не самое интересное занятие, да и вероятность ошибки велика. Находясь в Ла Риохе (Испания) и под винными парами после дегустации замечательных напитков, я написал вот такую прелестную программку.

Кто поймёт как программа работает, тому зачёт. Написал со сторонним эффектом тк здесь он, мне кажется, вполне оправдан. Переменная dmax - это максимальная глубина погружения при поиске префиксов. Это можно вообще убрать. Я поставил тк мне стрёмно поведение рекурсивных алгоритмов с глубиной в десяток порядков.

На вход ей можно дать пары "начало:конец" интервалов с любыми разделителями. На выходе будут префиксы.

Программа распиливает диапазон на наименьшее возможное количество префиксов.

Пользуйтесь на здоровье. Не забывайте хвалить, размещать ссылки, рекомендовать товарищам, упоминать при использовании в ваших продуктах и платить роялти при использовании в продуктах коммерческих. Ибо GPL это.

#!/usr/bin/perl -w

# Sergei Keler (www.keler.net).
# Interval to Prefixes.

use strict;

# На входе пары типа начало:конец построчно
# Разделитель любой, :., таб - и пробел.
# На выходе префиксы.

my @r=(); # массив префиксов исключительно ради сортировки. Можно не использовать.
my $dpt=0;
my $dmax=1000000; # Максимальная глубина поиска.

# Просто читаем пары чисел с любым разделителем.
while (<>) {
  chomp;
  my ($s,$f)=split /[ \t:,.-]/;
  $dpt=0;
  maxint($s,$f); # преобразуем
}
# вывод.
foreach my $p (sort @r) {
  print "$p\n";
}

# Собственно логика тут.
sub maxint {
  my ($s,$f)=@_;
  
  return if $dpt++ > $dmax;
  if ($s == $f) {
    push @r,$s; # Можно print $s;
    return;
  }
  return if ($s > $f);
  if (($s % 10) != 0) {
    push @r,$s; # Можно print $s;
    return maxint($s+1,$f);
  }
  if (($f % 10) != 9) {
    push @r,$f; # Можно print $f;
    return maxint($s,$f-1);
  }
  return maxint(int($s/10), int($f/10));
}