[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.5, Tue Mar 3 21:46:35 2009 UTC revision 1.6, Fri Mar 6 23:34:24 2009 UTC
# Line 1277  Line 1277 
1277  }  }
1278    
1279  sub PutArrayInHash {  sub PutArrayInHash {
1280          my ($ArrayRef) = @_;          my (@ArrayRef) = @_;
1281    
1282          my $HashRef;          my $HashRef;
1283          for (my $i=0; $i < @{$ArrayRef}; $i++) {          for (my $i=0; $i < @ArrayRef; $i++) {
1284                  $HashRef->{$ArrayRef->[$i]} = $i;                  $HashRef->{$ArrayRef[$i]} = $i;
1285          }          }
1286    
1287          return $HashRef;          return $HashRef;
# Line 1301  Line 1301 
1301          return $Name;          return $Name;
1302  }  }
1303    
1304    sub RemoveDuplicates {
1305            my (@OriginalArray) = @_;
1306    
1307            my %Hash;
1308            foreach my $Element (@OriginalArray) {
1309                    $Hash{$Element} = 1;
1310            }
1311            @OriginalArray = sort(keys(%Hash));
1312    
1313            return @OriginalArray;
1314    }
1315    
1316  1;  1;

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3