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
- split the words into an array characters
- terminate if less than 4 chars in array
- print the first 4 characters on the array
- remove (shift the first character off the array
- 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 | |
by space_monk (Chaplain) on Nov 22, 2012 at 09:27 UTC | |
by ColonelPanic (Friar) on Nov 22, 2012 at 09:32 UTC | |
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 |
In Section
Seekers of Perl Wisdom