String generation

[petrucci]

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

 

[John W. Krahn]

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

 

[Tassilo v. Parseval]

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

 

[petrucci]

great!! and if i want to include simbols?

 

[Tassilo v. Parseval]

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

 

[petrucci]

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

what does it mean?

 

[Tassilo v. Parseval]

Also sprach petrucci:

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

 

[William James]

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}

 

[Matija Papec]

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?