# HG changeset patch # User takakoron # Date 1455616029 18000 # Node ID 29c7219f8086789c30639fc45674c19d8c4c950d # Parent 0d2b0feee15bcfa5c882315968be999debdf62cc Deleted selected files diff -r 0d2b0feee15b -r 29c7219f8086 fastq2fasta.pl --- a/fastq2fasta.pl Tue Feb 16 18:03:52 2016 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,47 +0,0 @@ -#!/usr/bin/perl - -#*--<>-----------------------------------------* -#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 = ) { - $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; diff -r 0d2b0feee15b -r 29c7219f8086 fastq2fasta.xml --- a/fastq2fasta.xml Tue Feb 16 18:03:52 2016 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,14 +0,0 @@ - - for Testing - - fastq2fasta.pl $fastq $fasta - - - - - - - - - -