Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision e43cccf4

Von Sven Schöling vor fast 16 Jahren hinzugefügt

  • ID e43cccf42dc51e144dd39ca4190221c130b2af20
  • Vorgänger 0975a120
  • Nachfolger 8574428d

und nochmal überarbeitet.

Unterschiede anzeigen:

bin/mozilla/common.pl
586 586
  local (*A, *B) = @_;    # syms for caller's input arrays
587 587

  
588 588
  # Localise $a, $b
589
  my ($caller_a, $caller_b) = do
590
  {
589
  my ($caller_a, $caller_b) = do {
591 590
    my $pkg = caller();
592 591
    no strict 'refs';
593 592
    \*{$pkg.'::a'}, \*{$pkg.'::b'};
594 593
  };
595 594

  
596
  my $limit = $#A > $#B? $#A : $#B;    # loop iteration limit
597

  
598 595
  local(*$caller_a, *$caller_b);
599 596

  
600
 # This map expression is also the return value.
601
  map { my $b_index = $_;
602
    map { my $a_index = $_;
597
  # This map expression is also the return value.
598
  map { my $a_index = $_;
599
    map { my $b_index = $_;
603 600
      # assign to $a, $b as refs to caller's array elements
604 601
      (*$caller_a, *$caller_b) = \($A[$a_index], $B[$b_index]);
605 602
      $op->();    # perform the transformation
606
    }  0 .. $#A;
607
  }  0 .. $#B;
603
    }  0 .. $#B;
604
  }  0 .. $#A;
608 605
}
609 606

  
610 607
1;

Auch abrufbar als: Unified diff