[+79065679876];[+79065679877];[+79065679886];[+7906567989];
#!/usr/bin/perl my $pref='+7906'; #код оператора my $start=2749004; # номер с которого начинаем генерить my $nums=1000; # сколько номеров генерить open(F,"> nums.txt"); for($i=1;$i<$nums;$i++){ my $num=$start+$i; print (F "[".$pref.$num."];"); }
for($i=1;$i<$nums;$i++){
for (1 .. $num - 1) {