Skip to content

Instantly share code, notes, and snippets.

@sashaphanes

sashaphanes/userinputopenDNAfile.pl

Created September 28, 2012 14:55
Show Gist options
  • Save sashaphanes/3800373 to your computer and use it in GitHub Desktop.
Save sashaphanes/3800373 to your computer and use it in GitHub Desktop.
Download ZIP
UserinputDNA
Raw
userinputopenDNAfile.pl
#!/usr/bin/perl
use strict;
use warnings;
print "Which sequence would you like to view?\n\n";
my $DNAfilename = <>;
open(DNAfile, $DNAfilename);
my $DNA = <DNAfile>;
close DNAfile;
print "DNA sequence:\n\n$DNA";
exit;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment