tutorials:perl:unwrap_fasta.pl
Differences
This shows you the differences between two versions of the page.
| Next revision | Previous revision | ||
| tutorials:perl:unwrap_fasta.pl [2010/08/01 00:08] – created chkuo | tutorials:perl:unwrap_fasta.pl [2012/06/15 00:37] (current) – chkuo | ||
|---|---|---|---|
| Line 1: | Line 1: | ||
| - | <code perl> | + | <file perl unwrap_fasta.pl> |
| # unwrap_fasta.pl | # unwrap_fasta.pl | ||
| # Read a fasta file, unwrap the sequences | # Read a fasta file, unwrap the sequences | ||
| Line 7: | Line 7: | ||
| my $out_file = shift; | my $out_file = shift; | ||
| - | my $seq_hash; # key = seq_name, value = seq; | + | my %seq_hash; # key = seq_name, value = seq; |
| { | { | ||
| # redefine the record separator | # redefine the record separator | ||
| Line 27: | Line 27: | ||
| } | } | ||
| close OUT; | close OUT; | ||
| - | </code> | + | </file> |
tutorials/perl/unwrap_fasta.pl.1280592501.txt.gz · Last modified: by chkuo