Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re: Isolating DNA cont.

by toolic (Bishop)
on Dec 20, 2018 at 20:41 UTC ( #1227548=note: print w/replies, xml ) Need Help??

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
    Ah thank you very much.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1227548]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2022-01-24 04:10 GMT
Find Nodes?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:

    Results (64 votes). Check out past polls.