Mercurial > repos > fgiacomoni > lipidmaps_textsearch

annotate t/lib/lmTest.pm @ 2:1276908e8fc4 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Master branch Updating - - Fxx
author fgiacomoni
date Mon, 20 Aug 2018 09:17:05 -0400
parents e8bd49794291
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
1 package lib::lmTest ;
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
2
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
3 use diagnostics; # this gives you more debugging information
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
4 use warnings; # this warns you of bad practices
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
5 use strict; # this prevents silly errors
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
6 use Exporter ;
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
7 use Carp ;
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
8
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
9 use Data::Dumper ;
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
10
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
11 our $VERSION = "1.0";
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
12 our @ISA = qw(Exporter);
2
1276908e8fc4 Master branch Updating - - Fxx
fgiacomoni
parents: 0
diff changeset
13 our @EXPORT = qw( build_lm_mass_queryTest round_numsTest convert_tbody_to_globalmatrixTest);
1276908e8fc4 Master branch Updating - - Fxx
fgiacomoni
parents: 0
diff changeset
14 our %EXPORT_TAGS = ( ALL => [qw( build_lm_mass_queryTest round_numsTest convert_tbody_to_globalmatrixTest )] );
0
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
15
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
16 use lib '/Users/fgiacomoni/Inra/labs/perl/galaxy_tools/lipidmaps' ;
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
17 use lib::lipidmaps qw( :ALL ) ;
2
1276908e8fc4 Master branch Updating - - Fxx
fgiacomoni
parents: 0
diff changeset
18 use lib::writer qw( :ALL ) ;
0
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
19 use lib::operations qw( :ALL ) ;
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
20
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
21 sub build_lm_mass_queryTest {
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
22
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
23 my ( $delta, $selected_cat, $selected_cl, $selected_subcl ) = @_ ;
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
24 my ( $cat, $cl, $subcl ) = (undef, undef, undef) ;
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
25 my $url = 'http://www.lipidmaps.org/data/structure/LMSDSearch.php?Mode=ProcessTextSearch&OutputColumnHeader=No&OutputMode=File&OutputType=TSV' ;
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
26
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
27 if ( ( defined $selected_subcl) or ( defined $selected_cl ) or ( defined $selected_cat ) ) {
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
28 if ( ( $selected_cat !~ /^NA/ ) ) { ( $cat ) = ( \$selected_cat ) ; }
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
29 if ( ( $selected_cl !~ /^NA(.*)/ ) ) { ( $cl ) = ( \$selected_cl ) ; }
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
30 if ( ( $selected_subcl !~ /^NA(.*)/ ) ) { ( $subcl ) = ( \$selected_subcl ) ; }
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
31 }
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
32 else { croak "No selected category or classification ids list\n" ; }
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
33
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
34
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
35 my $olm = lib::lipidmaps->new() ;
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
36 my $ref_url = $olm->build_lm_mass_query(\$url, \$delta, $cat, $cl, $subcl) ;
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
37 my $complete_url = $$ref_url ;
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
38 # print $complete_url ;
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
39 return ($complete_url) ;
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
40 }
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
41
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
42 ## SUB TEST for
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
43 sub round_numsTest {
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
44 # get values
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
45 my ( $numbers, $decimal ) = @_;
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
46
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
47 my $oround = lib::operations->new() ;
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
48 my $rounds = $oround->round_nums($numbers, $decimal) ;
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
49
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
50 return($rounds) ;
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
51 }
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
52 ## End SUB
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
53
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
54
2
1276908e8fc4 Master branch Updating - - Fxx
fgiacomoni
parents: 0
diff changeset
55 ## SUB TEST for
1276908e8fc4 Master branch Updating - - Fxx
fgiacomoni
parents: 0
diff changeset
56 sub convert_tbody_to_globalmatrixTest {
1276908e8fc4 Master branch Updating - - Fxx
fgiacomoni
parents: 0
diff changeset
57 # get values
1276908e8fc4 Master branch Updating - - Fxx
fgiacomoni
parents: 0
diff changeset
58 my ( $header, $tbody_object ) = @_;
1276908e8fc4 Master branch Updating - - Fxx
fgiacomoni
parents: 0
diff changeset
59
1276908e8fc4 Master branch Updating - - Fxx
fgiacomoni
parents: 0
diff changeset
60 my $owriter = lib::writer->new() ;
1276908e8fc4 Master branch Updating - - Fxx
fgiacomoni
parents: 0
diff changeset
61 my $lm_matrix = $owriter->convert_tbody_to_globalmatrix($header, $tbody_object) ;
1276908e8fc4 Master branch Updating - - Fxx
fgiacomoni
parents: 0
diff changeset
62
1276908e8fc4 Master branch Updating - - Fxx
fgiacomoni
parents: 0
diff changeset
63 # print Dumper $lm_matrix;
1276908e8fc4 Master branch Updating - - Fxx
fgiacomoni
parents: 0
diff changeset
64 return($lm_matrix) ;
1276908e8fc4 Master branch Updating - - Fxx
fgiacomoni
parents: 0
diff changeset
65 }
1276908e8fc4 Master branch Updating - - Fxx
fgiacomoni
parents: 0
diff changeset
66 ## End SUB
1276908e8fc4 Master branch Updating - - Fxx
fgiacomoni
parents: 0
diff changeset
67
1276908e8fc4 Master branch Updating - - Fxx
fgiacomoni
parents: 0
diff changeset
68
0
e8bd49794291 Init repository with last lipidmaps_textsearch master version
fgiacomoni
parents:
diff changeset
69 1 ;