note
LanX
Addendum: [DOC://$.|<tt>$.</tt>] aka $INPUT_LINE_NUMBER will also give the current line number when reading from a file handle.<P>
<H5> Update</H5><P>
<c>
use strict;
use warnings;
while (my $sequence = <DATA>) {
chomp $sequence;
if ($sequence =~ /[^ATCG]/){
warn "Sequence '$sequence' in line $. has invalid character after " . $-[0];
}
else {
print "Valid sequence: '$sequence'\n";
}
}
__DATA__
TAAGAACAATAAGAACAA
TAAGAACAATAAUAACAA
TAAGAACAATAAGAACAA
</c><P>
<Pre>
Sequence 'TAAGAACAATAAUAACAA' in line 2 has invalid character after 12 at parse_dna.pl line 7, <DATA> line 2.
</pre><P>
<div class="pmsig"><div class="pmsig-708738">
<!--nowiki--><p>Cheers Rolf<br>
<sub>(addicted to the Perl Programming Language :)
<br> <i> [id://1153804|Wikisyntax for the Monastery]</i>
</sub>
<!--nowiki-->
</div></div><!-- Wiki2Monks {"version":1.16} -->
11113020
11113022