«

Hi everyone..

i want generate all the string starting a root

For ex.:

root = c

result =
ca
cb
cc
cd
..
..
cz
caa
cab
..
..
caz
cba
..
..
cbz
..
..
czz

and go on even a predefined length
Thank u

petrucci wrote:
>
> i want generate all the string starting a root
>
> For ex.:
>
> root = c
>
> result =
> ca
> cb
> cc
> cd
> .
> .
> cz
> caa
> cab
> .
> .
> caz
> cba
> .
> .
> cbz
> .
> .
> czz

my $root = 'c';

print "$root$_\n" for 'a' .. 'zz';



John
--
use Perl;
program
fulfillment

Also sprach petrucci:

> i want generate all the string starting a root
>
> For ex.:
>
> root = c
>
> result =
> ca
> cb
> cc
> cd
> .
> .
> cz
> caa
> cab
> .
> .
> caz
> cba
> .
> .
> cbz
> .
> .
> czz
>
> and go on even a predefined length

This is quite easy with Perl's string-increment:

use constant LENGTH => 3;

my ($root, $tail) = qw/c a/;

print $root . $tail++, "\n" while length("$root$tail") <= LENGTH;

Tassilo
--
use bigint;
$n=71423350343770280161397026330337371139054411854 220053437565440;
$m=-8,;;$_=$n&(0xff)<<$m,,$_>>=$m,,print+chr,,while(($ m+=<=200);

great!! and if i want to include simbols?

Also sprach petrucci:
> great!! and if i want to include simbols?

Then you have to work harder as Perl's string increment doesn't handle
symbols.

Other than that, please use a proper quoting style when composing
follow-up messages. You're supposed to quote context and to put your
material below those quotes. For this and other essentials please read

<http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html>

first.

Tassilo
--
use bigint;
$n=71423350343770280161397026330337371139054411854 220053437565440;
$m=-8,;;$_=$n&(0xff)<<$m,,$_>>=$m,,print+chr,,while(($ m+=<=200);

> my ($root, $tail) = qw/c a/;

what does it mean?

Also sprach petrucci:

>> my ($root, $tail) = qw/c a/;
>
> what does it mean?

qw// is a list constructor. Items of such a list are
whitespace-delimited and so the above is equivalent to

my ($root, $tail) = ('c', 'a');

qw is handy for lists where items never contain whitespace because you
don't have to use tedious quotes around the items in case they are
strings. See the entry on "qw/STRING/" under "Regexp Quote-Like
Operators" in `perldoc perlop`.

There are similar constructs for strings (q// and qq//), regexes (qr//)
and backticks (qx//).

Tassilo
--
use bigint;
$n=71423350343770280161397026330337371139054411854 220053437565440;
$m=-8,;;$_=$n&(0xff)<<$m,,$_>>=$m,,print+chr,,while(($ m+=<=200);

petrucci wrote:
> Hi everyone..
>
> i want generate all the string starting a root
>
> For ex.:
>
> root = c
>
> result =
> ca
> cb
> cc
> cd
> .
> .
> cz
> caa
> cab
> .
> .
> caz
> cba
> .
> .
> cbz
> .
> .
> czz
>
> and go on even a predefined length
> Thank u

You may prefer to use Ruby:

root = "c"
puts ("a".."zz").map{|s|root+s}

On 21 Sep 2005 01:35:50 -0700, "William James" <>
wrote:

>> and go on even a predefined length
>> Thank u
>
>You may prefer to use Ruby:
>
>root = "c"
>puts ("a".."zz").map{|s|root+s}

Can you also offer perl equivalent so you wouldn't be completely
offtopic?