Mercurial > repos > takakoron > fastq2fasta
changeset 4:c870a3e95aa6 draft default tip
Uploaded
| author | takakoron |
|---|---|
| date | Tue, 16 Feb 2016 04:53:00 -0500 |
| parents | 5569f88a8194 |
| children | |
| files | fastq2fasta.pl |
| diffstat | 1 files changed, 47 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/fastq2fasta.pl Tue Feb 16 04:53:00 2016 -0500 @@ -0,0 +1,47 @@ +#!/usr/bin/perl + +#*--<<Definision>>-----------------------------------------* +#PGID fastq2fastq.pl +#Kind of PG Main PG +#Create Date 2011/02/01 +# +# Comandline Input File(fasta) +# Output File(fastq) +#*---------------------------------------------------------* + +#*********************************************************** +# use?錾 +#*********************************************************** +use 5.8.0; +use utf8; +use strict; +#*********************************************************** +# +#*********************************************************** +my $input; +my $output; +my $line; +#*********************************************************** +# Main Coading +#*********************************************************** +$input = $ARGV[0]; +$output = $ARGV[1]; + +open(OUTPUT, ">$output"); +open(INPUT, "<$input") || die "\nThe input file does not exist.\n\n"; +my $index = 0; +while ($line = <INPUT>) { + $index++; + if($index == 1){ + my $name = substr($line,1); + print OUTPUT ">"; + print OUTPUT "$name"; + }elsif($index == 2){ + print OUTPUT "$line"; + } + if($index == 4){ + $index = 0; + } +} +close OUTPUT; +close INPUT;