note
LanX
A more general approach with "nested" iterators:<P>
<c>
sub read_chunk {
my ($fh,$mod) = @_;
my $chunk;
while ( <$fh> ) {
$chunk .= $_;
return $chunk unless $. % $mod;
}
return $chunk;
}
open my $fh, "<", \$string;
while ( my $chunk = read_chunk( $fh, 14 ) ) {
print $chunk;
print "-"x5,"\n";
}
</c><P>
works with anything you can open via filehandle even strings.<P>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-708738">
<p>Cheers Rolf
</div></div>
1006961
1006961