Hi, Not sure exactely what you mean, but here is a one-liner that'll produce 100 phone numbers in sequence, from a random starting point:
perl -E '$start = 10_000_000 + int 89_999_899*rand; say for $start..$start+100' Hope it helps :) -L ------- Original Message ------- On Thursday, June 22nd, 2023 at 1:49 AM, William Torrez Corea <willitc9...@gmail.com> wrote: > What do I need to do to develop a telephone book in Perl? > > In my country the phone number has 8 digits, i want to generate random > numbers but with the same sequence. I want to get at least some number > registered in the telephone exchange [unknown number]. > -- > > With kindest regards, William. > > ⢀⣴⠾⠻⢶⣦⠀ > ⣾⠁⢠⠒⠀⣿⡁ Debian - The universal operating system > ⢿⡄⠘⠷⠚⠋⠀ https://www.debian.org > ⠈⠳⣄⠀⠀⠀⠀
