note
space_monk
<p>You should look up [doc://substr]. (Update: [choroba] put a more detailed explanation while I was writing this, so see below)
<p>Alternatively, in the spirit of TMTOWDI, you also could adopt the following algorithm
<ol>
<li>split the words into an array characters
<li>terminate if less than 4 chars in array
<li>print the first 4 characters on the array
<li>remove (<b>shift</b> the first character off the array
<li>go back to 2)
</ol>
<code>
my $word = 'ABCDEFGH';
my @word = split //, $word;
my $pos = 1;
while (scalar(@word) >= 4) {
print @word[0..3]."==> starting at $pos";
shift @word;
$pos++;
}
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-880879">
A Monk aims to give answers to those who have none, and to learn from those who know more.
</div></div>
1005077
1005077