Next Program Repair Shop 290

Store Related Values Together

        for (grep {$size[$_] == 0} (reverse 0 .. $#size)) {
          splice @size, $_, 1;
          splice @user, $_, 1;
          splice @group, $_, 1;
          splice @time, $_, 1;
        }
        @rec = grep {$_->{size} != 0} @rec;


Next Copyright © 2002 M. J. Dominus