Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   Скриптик на перл? (https://forum.antichat.xyz/showthread.php?t=161423)

andreipup 06.12.2009 02:24
Скриптик на перл?
 
Помогите плиз нужно написать под генератор номеров

Пример
Код:
[+79065679876];[+79065679877];[+79065679886];[+7906567989];
Что генерились по порядку в строку в таком формате.

svesve 06.12.2009 02:46
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."];");
 
} 

krypt3r 06.12.2009 02:58
Код:
for($i=1;$i<$nums;$i++){
Хых =)) В перле есть такая фича как
Код:
for (1 .. $num - 1) {

svesve 06.12.2009 03:00
ну я на перле не особо шуруплю )))

andreipup 06.12.2009 16:21
Цитата:
Сообщение от svesve
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."];");
 
} 


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

andreipup 06.12.2009 16:23
Цитата:
Сообщение от krypt3r
Код:
for($i=1;$i<$nums;$i++){
Хых =)) В перле есть такая фича как
Код:
for (1 .. $num - 1) {

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


Время: 22:19