Re: Is it possible to get all tetra words with correct starting position using a better code within a loop?

[space_monk]

in reply to Is it possible to get all tetra words with correct starting position using a better code within a loop?

You should look up substr. (Update: choroba put a more detailed explanation while I was writing this, so see below)

Alternatively, in the spirit of TMTOWDI, you also could adopt the following algorithm

1. split the words into an array characters
2. terminate if less than 4 chars in array
3. print the first 4 characters on the array
4. remove (shift the first character off the array
5. go back to 2)

my $word = 'ABCDEFGH';
my @word = split //, $word;

my $pos = 1;
while (scalar(@word) >= 4) {
   print @word[0..3]."==> starting at $pos";
   shift @word;
   $pos++;
}

[ColonelPanic]

One quibble: you forgot to increment your $pos variable.

[space_monk]

Thanks - I haven't had my first coffee yet!

[ColonelPanic]

I know the feeling!

[supriyoch_2008]

Hi space_monk

Thanks for your suggestions. I am sorry for late reply as I had no access to internet for a few days.

With DEEP REGARDS,