Скриптик на перл?

[andreipup]

Помогите плиз нужно написать под генератор номеров

Пример
[+79065679876];[+79065679877];[+79065679886];[+7906567989];

Что генерились по порядку в строку в таком формате.

[svesve]

#!/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."];");

}

[krypt3r]

for($i=1;$i<$nums;$i++){

Хых =)) В перле есть такая фича как

for (1 .. $num - 1) {

[svesve]

ну я на перле не особо шуруплю )))

[andreipup]

#!/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."];");

}




Примного блогодарен!!!!
То что надо)

[andreipup]

for($i=1;$i<$nums;$i++){

Хых =)) В перле есть такая фича как

for (1 .. $num - 1) {



Если несложно набросай свой вариант)