X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=bp_bin%2Fread_soft;h=10ae8c1bb405914db2d0c83c5e6a343de7a79ca1;hb=ddbb577ec991c2a466b6c1230cc241f649753f09;hp=dfbf9f387a77683023180284d0b61979ef31eb88;hpb=66938be910a5642b50ddf28991649858b5c36580;p=biopieces.git diff --git a/bp_bin/read_soft b/bp_bin/read_soft index dfbf9f3..10ae8c1 100755 --- a/bp_bin/read_soft +++ b/bp_bin/read_soft @@ -1,4 +1,4 @@ -#!/usr/bin/env perl -w +#!/usr/bin/env perl # Copyright (C) 2007-2009 Martin A. Hansen. @@ -27,7 +27,9 @@ # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< +use warnings; use strict; +use Data::Dumper; use Maasha::Biopieces; use Maasha::Filesys; use Maasha::NCBI; @@ -62,6 +64,8 @@ foreach $file ( @{ $options->{ "data_in" } } ) $soft_index = Maasha::NCBI::soft_index_file( $file ); + # print STDERR Dumper( $soft_index ) if $options->{ "verbose" }; + $fh = Maasha::Filesys::file_read_open( $file ); @platforms = grep { $_->{ "SECTION" } =~ /PLATFORM/ } @{ $soft_index };