# HG changeset patch
# User takakoron <tm@nig.ac.jp>
# Date 1455612443 -32400
# Node ID eeb91602f5e9c4739a599c775dca3684cb005409

commit

diff -r 000000000000 -r eeb91602f5e9 fastq2fasta.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/fastq2fasta.pl	Tue Feb 16 17:47:23 2016 +0900
@@ -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;
diff -r 000000000000 -r eeb91602f5e9 fastq2fasta.xml
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/fastq2fasta.xml	Tue Feb 16 17:47:23 2016 +0900
@@ -0,0 +1,14 @@
+<tool id="fastq2fastq" name="Convert FASTQ into FASTA" version="0.0.1">
+  <description>for Testing</description>
+  <command interpreter="perl">
+    fastq2fasta.pl $fastq  $fastq
+  </command>
+  <inputs>
+    <param name="fastq" format="fastq" type="data" value="" label="FASTQ format file" />
+  </inputs>
+  <outputs>
+    <data format="fasta" name="fasta" label="${tool.name} on ${on_string}" />
+  </outputs>
+  <help>
+  </help>
+</tool>