note
johngg
<p>Please show us your perl1.pl script inside <c><code></c> and <c></code></c> tags so we can see where you are going wrong. As for working on a multi-line file, calculate the offsets, [doc://open] your file then do something like</p>
<code>
while ( <$inputFH> )
{
foreach my $offset ( reverse @cums[ 1 .. $#cums ] )
}
substr $_, $offset, 0, q{-};
}
print;
}
</code>
<p>I hope this moves you forward.</p>
<p><b>Update: </b>Code modified to replace <c>for</c> statement modifier with an explicit loop, thanks [choroba].</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-401112">
<p>Cheers,</p><p>JohnGG</p>
</div></div>
1029006
1029045