in reply to Isolating DNA cont.
You are missing a closing (right) curly for the while loop, as the asymmetric indentation suggests. Here's the perltidy version
(Tip #10 from the Basic debugging checklist):
#!/usr/bin/perl -w use strict; use diagnostics; my $file = "$ARGV[0]"; open( DAT, $file ) || die("Can not open file!"); while (<DAT>) { my $seq = $_; if ( $seq =~ m/^[ATCG]+$/ ) { my $DNA = ''; $DNA = $seq; my $revcom = reverse($DNA); $revcom =~ tr/ACGTacgt/TGCAtgca/; print $revcom; } }
I also got rid of the trailing semicolon after your right curly.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Isolating DNA cont.
by undergradguy (Novice) on Dec 20, 2018 at 21:03 UTC |
In Section
Seekers of Perl Wisdom