Raj: Created page with ' #! /usr/bin/perl ################################################################################################### # # AUTHOR: Ryan M. Castillo # VE…'

2010-01-31T08:27:34Z

Created page with ' <source lang=perl> #! /usr/bin/perl ################################################################################################### # # AUTHOR: Ryan M. Castillo # VE…'

New page

<source lang=perl>

#! /usr/bin/perl

###################################################################################################
#
# AUTHOR: Ryan M. Castillo
# VERSION: Version 1 (04 January 2007)
# PURPOSE: Transpose a comma seperated values file
# INPUT: user specified file
# OUTPUT FILES: tr_<Name of File>
#
# Copyright Notice:
#
# Copyright 2007 Ryan Castillo
#
# 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 2 of
# the License, or 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, write to the
# Free Software Foundation, Inc.,
# 59 Temple Place, Suite 330, Boston, MA
# 02111-1307 USA
# or visit http://www.gnu.org/copyleft/gpl.html
#
###################################################################################################

my $input_path = $ARGV[0];

#### OPEN OUR INPUT FILE
open INPUT_FILE, "<$input_path"
or die "Something's wrong with the input file!\n";

my $line = <INPUT_FILE>; # holds the current line from the input file
my @AoA; # array that will be an array of arrays

while (defined $line){
chomp $line;
push @AoA, [split /\,/, $line];
$line = <INPUT_FILE>;
}

close INPUT_FILE;

#### OPEN OUR OUTPUT FILE
my $output_path = "tr_$input_path";
open RESULT, ">$output_path"
or die "Can't open $output_path: $!\n";

for $i (0 ... $#{$AoA[0]}){
for $j (0 ... $#AoA){
if ($j == $#AoA){
print RESULT "$AoA[$j][$i]\n";
}
elsif ($AoA[$j][$i] eq ""){
print RESULT "\n";
last;
}
else{
print RESULT "$AoA[$j][$i]\,";
}
}
if ($AoA[$j][$i] eq "") {last;}
}
close RESULT;
</source>
[[Category:Bioinformatics]]

Transpose - Revision history

Raj: Created page with ' #! /usr/bin/perl ################################################################################################### # # AUTHOR: Ryan M. Castillo # VE…'