[Bio] / FigKernelPackages / FileIOFunctions.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FileIOFunctions.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Wed Oct 15 17:46:01 2008 UTC revision 1.2, Tue Nov 25 16:54:19 2008 UTC
# Line 191  Line 191 
191                  chomp($Line);                  chomp($Line);
192                  if (length($ColumnDelimiter) > 0) {                  if (length($ColumnDelimiter) > 0) {
193                          my @Headings = split(/$ColumnDelimiter/,$Line);                          my @Headings = split(/$ColumnDelimiter/,$Line);
194                            my $First = 1;
195                          while ($Line = <INPUT>) {                          while ($Line = <INPUT>) {
196                                  chomp($Line);                                  chomp($Line);
197                                  my @Data = split(/$ColumnDelimiter/,$Line);                                  my @Data = split(/$ColumnDelimiter/,$Line);
# Line 207  Line 208 
208                                                  }                                                  }
209                                          }                                          }
210                                  }                                  }
211                                    if ($First == 1) {
212                                            $First = 0;
213                                            push(@{$ArrayRefHashRef->{"orderedkeys"}},@Headings);
214                                    }
215                                  push(@{$DataHashRefArrayRef},$ArrayRefHashRef);                                  push(@{$DataHashRefArrayRef},$ArrayRefHashRef);
216                          }                          }
217                  }                  }
# Line 220  Line 225 
225  sub PrintHashArrayToFile {  sub PrintHashArrayToFile {
226          my ($Filename,$HashArrayRef,$HeaderRef) = @_;          my ($Filename,$HashArrayRef,$HeaderRef) = @_;
227    
228            if (!defined($HeaderRef) || $HeaderRef == 0 || $HeaderRef eq "") {
229                    if (!defined($HashArrayRef->[0]) || !defined($HashArrayRef->[0]->{"orderedkeys"})) {
230                            return;
231                    } else {
232                            $HeaderRef = $HashArrayRef->[0]->{"orderedkeys"};
233                    }
234            }
235    
236          if (open (HASHARRAYTOFILE, ">$Filename")) {          if (open (HASHARRAYTOFILE, ">$Filename")) {
237                  for (my $j=0; $j < @{$HeaderRef}; $j++) {                  for (my $j=0; $j < @{$HeaderRef}; $j++) {
238                          if ($j > 0) {                          if ($j > 0) {
239                                  print HASHARRAYTOFILE "\t";                                  print HASHARRAYTOFILE ";";
240                          }                          }
241                          print HASHARRAYTOFILE $HeaderRef->[$j];                          print HASHARRAYTOFILE $HeaderRef->[$j];
242                  }                  }
# Line 231  Line 244 
244                  for (my $i=0; $i < @{$HashArrayRef}; $i++) {                  for (my $i=0; $i < @{$HashArrayRef}; $i++) {
245                          for (my $j=0; $j < @{$HeaderRef}; $j++) {                          for (my $j=0; $j < @{$HeaderRef}; $j++) {
246                                  if ($j > 0) {                                  if ($j > 0) {
247                                          print HASHARRAYTOFILE "\t";                                          print HASHARRAYTOFILE ";";
248                                  }                                  }
249                                  if (defined($HashArrayRef->[$i]->{$HeaderRef->[$j]})) {                                  if (defined($HashArrayRef->[$i]->{$HeaderRef->[$j]})) {
250                                          print HASHARRAYTOFILE join("|",@{$HashArrayRef->[$i]->{$HeaderRef->[$j]}});                                          print HASHARRAYTOFILE join("|",@{$HashArrayRef->[$i]->{$HeaderRef->[$j]}});

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3