06.12.2009, 02:46
|
|
Постоянный
Регистрация: 15.06.2007
Сообщений: 527
С нами:
9950786
Репутация:
214
|
|
PHP код:
#!/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."];");
}
|
|
|