changeset 1:836946d90d26 draft

Uploaded perl file
author sarahinraauzeville
date Tue, 12 Dec 2017 09:30:48 -0500
parents fc7c00da3eeb
children c2682f3f470a
files sm_dos2unix.pl
diffstat 1 files changed, 39 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/sm_dos2unix.pl	Tue Dec 12 09:30:48 2017 -0500
@@ -0,0 +1,39 @@
+#!/usr/bin/perl -w
+
+# usage : perl sm_FASTQ_qual.pl <file.fastq>
+# 26/05/2015 
+# Sarah Maman
+# Copyright (C) 2014 INRA
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#
+use strict;
+use File::Basename;
+use Getopt::Long;
+use lib "$ENV{'MY_GALAXY_DIR'}";
+use GalaxyPath;
+
+
+my $input1    = $ARGV[0];
+my $output    = $ARGV[1];
+my $cmd1      = ''; 
+
+my $cfg = GalaxyPath->new( -file => $ENV{"GALAXY_CONFIG_FILE"} );
+my $DOS = $cfg->my_path( 'toolsPath', 'DOS' );
+
+$cmd1 = "($DOS -n $input1 $output) >& ./out_dos2unix.log 2>&1";
+system $cmd1;
+#Info pour les biologistes
+print STDOUT "Command run on cluster : \n\n $cmd1 \n\n ";
+
+#Recuperation des fichiers par Galaxy