http://www.perlmonks.org?node_id=1005079


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++; }
A Monk aims to give answers to those who have none, and to learn from those who know more.

Replies are listed 'Best First'.
Re^2: Is it possible to get all tetra words with correct starting position using a better code within a loop?
by ColonelPanic (Friar) on Nov 22, 2012 at 09:15 UTC
    One quibble: you forgot to increment your $pos variable.


    When's the last time you used duct tape on a duct? --Larry Wall
      Thanks - I haven't had my first coffee yet!
      A Monk aims to give answers to those who have none, and to learn from those who know more.
        I know the feeling!


        When's the last time you used duct tape on a duct? --Larry Wall
Re^2: Is it possible to get all tetra words with correct starting position using a better code within a loop?
by supriyoch_2008 (Monk) on Dec 03, 2012 at 06:34 UTC

    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,