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.