in reply to Re: Fast Matrix Load
in thread Fast Matrix Load

Yes yes yes. Okay. I'll give you my code; I'm just embarassed that I can't get a faster time for this very simple operation. Here is what I have: 
my @matrix;
my @profile;
open PROFILES, "profile/profile.db" or die "$!";
while (<PROFILES>) {
 @profile = split (/\t/, $_);
 while ($i <= $#profile) {
  $matrix[$j]->[$i] = $profile[$i];
  $j++;
 }
 $i++;
 $j = 0;
}

[download]
Okay dvergin? I know it sucks--I'm having to load the data twice essentially, passing it once into a temporary array. Suggestions would be very very appreciated. Apologies for not giving you my code. Sorry sorry sorry. Your good acolyte, Evan

Moved end-code tag 2002-02-16 dvergin

Replies are listed 'Best First'.
Re: Re: Re: Fast Matrix Load
by Anonymous Monk on Feb 17, 2002 at 03:32 UTC 
    #this is going to take a very long time
while ($i <= $#profile) {
    $matrix[$j]->[$i] = $profile[$i];
    $j++;
}

    [download]
[reply]
[d/l]

      Forever and ever and ever and ever and ever and ever and ever and ever and ever and ever and ever and ever and ever and ever and ever and ever and ever and ever and ever and ever and ever and.........

      cheers

      tachyon

      s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

[reply]

In Section Seekers of Perl Wisdom