Клубове Дир.бг
powered by diri.bg
търси в Клубове diri.bg Разширено търсене

Вход
Име
Парола

Клубове
Dir.bg
Взаимопомощ
Горещи теми
Компютри и Интернет
Контакти
Култура и изкуство
Мнения
Наука
Политика, Свят
Спорт
Техника
Градове
Религия и мистика
Фен клубове
Хоби, Развлечения
Общества
Я, архивите са живи
Клубове Дирене Регистрация Кой е тук Въпроси Списък Купувам / Продавам 10:54 20.04.21 
Клубове/ Компютри и Интернет / Perl Всички теми Следваща тема Пълен преглед*
Информация за клуба
Тема Re: Моля за информация [re: Aниka]
Автор zuluz ($>=$<=0)
Публикувано08.04.05 19:30  



Bi mogla da startirash s "Learning Perl".
Otnosno script-a, tova e vsi4ko, koeto ti e nujno
(osven ako nqma specialni iziskvaniq za performance tunning):

# Variant 1:
#~ BEGIN
# one liner

my $rand = sub { local $.;$. .= int rand(9) for 1..$_[0]+6;$. };

print $rand->(5), $/; # 11 digit random number
print $rand->(10), $/; # 16 digit random number

# and so on ...

__END__

STDOUT:

12614828840
8835423358255162



# Variant 2:
#~ BEGIN
# function

print _rand_gen(6), $/ for 1..5;
print _rand_gen(12), $/ for 1..5;
print _rand_gen(24), $/ for 1..5;

sub _rand_gen{
my $length = shift || return;
my $rand;
map{ $rand .= int rand(9)}1..$length;
$rand
}


__END__

STDOUT:

354221
838466
351686
136053
588117
764500012374
568127635713
088816636803
184545763220
383006614182
270200110214668545525731
100756783123826787364416
027011763616551464385712
536147721721264811128715
865550426154808540857436

#~

#~
$_->[/^(?>(.)?(.)+.*)(?!\1)(??{print(($1..$2)[9,0,15,7])})/]
#~

Редактирано от zuluz на 08.04.05 21:30.



Цялата тема
ТемаАвторПубликувано
* Моля за информация Aниka   08.04.05 18:16
. * Re: Моля за информация zuluz   08.04.05 19:30
. * Re: Моля за информация Aниka   08.04.05 21:24
. * Re: Моля за информация zuluz   08.04.05 21:43
. * Re: Моля за информация Aниka   08.04.05 21:53
. * Re: Моля за информация Valentin   10.04.05 12:37
. * Re: Моля за информация Aниka   10.04.05 15:20
. * Re: Моля за информация radi   09.07.05 10:09
. * Re: Моля за информация Aниka   30.07.05 15:09
. * Re: Моля за информация level 9   18.08.05 02:40
Клуб :  


Clubs.dir.bg е форум за дискусии. Dir.bg не носи отговорност за съдържанието и достоверността на публикуваните в дискусиите материали.

Никаква част от съдържанието на тази страница не може да бъде репродуцирана, записвана или предавана под каквато и да е форма или по какъвто и да е повод без писменото съгласие на Dir.bg
За Забележки, коментари и предложения ползвайте формата за Обратна връзка | Мобилна версия | Потребителско споразумение
© 2006-2021 Dir.bg Всички права запазени.