Perl Möglichkeit des Durchsuchens 2 arrays in parallel

Ich verwendet 

Use List::MoreUtils qw(each_array);
my $it = each_array( @input_dump_arr, @created_dump_arr);
while ( my ($first, $second) = $it->()) {
}

Wäre diese Arbeit in einem Standard-perl-Konfiguration?
Eine breitere Frage, gibt es Richtlinien zum schreiben von "portable" perl-Skripts? Ich bin neu in Perl, nur versuchen, herauszufinden, wenn cpan ist eigentlich Analog wie die boost-Bibliotheken für c++.

InformationsquelleAutor subramanian | 2013-04-15
  1. 4

    Können Sie dies nutzen wollen, einfacher rewrite des Moduls each_arrayref Funktion. each_array ist eine überflüssige wrapper für diese Funktion, die verwendet Prototypen zu nehmen Referenzen auf arrays als Parameter übergeben werden.

    Seine Funktionalität ist identisch mit der Modul-version, außer dass es nicht keine Prüfung der Parameter, die Sie erhält, und der iterator zurückgegeben, nicht überprüfen, dass es entweder keine Parameter oder 'index'.

    use strict;
use warnings;

sub each_array {

  my @copy = @_;
  my $i;
  my $max;

  for (map scalar @$_, @copy) {
    $max = $_ unless defined $max and $max > $_;
  }

  sub {
    return $i if @_ and shift eq 'index';
    my $new_i = defined $i ? $i + 1 : 0;
    return if $new_i >= $max;
    $i = $new_i;
    return map $_->[$i], @copy;
  }
}

my @array1 = qw/ A B C /;
my @array2 = qw/ D E F G /;

my $iter = each_array(\@array1, \@array2);

while (my @values = $iter->()) {
  printf "%d: %s\n", $iter->('index'), join ', ', map $_ // 'undef', @values;
}

    Ausgabe

    0: A, D
1: B, E
2: C, F
3: undef, G

    Könnte man natürlich auch einfach den code nehmen für each_arrayref von der List::MoreUtils Modul. Es ist ein geschlossenes System und garantiert die Kompatibilität mit Ihren bestehenden code.

    InformationsquelleAutor Borodin
  2. 7

    Es ist nicht eine core-Modul (also nicht im Bundle mit perl), aber es ist eine relativ Häufig ein. Ich würde nicht zögern, es zu benutzen.

    Wenn Sie wirklich paranoid es nicht verfügbar sein könnte, vorausgesetzt, arrays sind gleiche Größe, können Sie etwas wie das folgende:

    for my $i (0 .. $#array1) {
  my $first  = $array1[$i];
  my $second = $array2[$i];
}

    Jedoch glücklicherweise each_array() ist implementiert in pure perl, so können Sie auch das anzeigen der Quelle der Liste/MoreUtils.Uhr und kopieren Sie und fügen Sie die entsprechenden Unterprogramme.

    InformationsquelleAutor Dondi Michael Stroma
  3. 2

    Gibt es Module verteilt, die direkt mit Perl selbst. Sie sind in der Regel als "core-Module". Können Sie immer verwenden Sie diese. List::Util ist einer von Ihnen, obwohl List::MoreUtils nicht.

    Jedoch List::MoreUtils ist ein Modul zur Verfügung, auf CPAN. CPAN wird oft als "Perl-standard-Bibliothek", ähnlich wie "der Standard-Bibliothek" ist für C++. Die meisten Leute denken, es ist OK, dass Benutzer Ihrer Anwendung zu haben, bestimmte Module aus dem CPAN installiert, vor allem, wenn Sie gut eingesetzt-Module.

    List::MoreUtils ist definitiv ein gut-gebraucht-Modul. Es ist schon seit geraumer Zeit. Alle großen Linux-Distributionen, die ich kenne, enthalten verpackte Versionen.

    Also, wenn Ihr Ziel ist nicht zu 100% unabhängig von nicht-core-Module, dann empfehle ich dringend, dass Sie weiterhin mit List::MoreUtils und die meisten anderen edlen Modulen auf CPAN. Sie sind, warum Perl Felsen.

    Leicht offtopic: ich muss zugeben, dass ich lieber pairwise (auch aus List::MoreUtils) für genau zwei arrays, da verhält es sich eher wie map. Für dein Beispiel:

    use List::MoreUtils qw(pairwise);
pairwise { do_stuff($a, $b) } @input_dump_arr, @created_dump_arr;
    • Und wenn Sie nicht wollen, zu verlangen List::MoreUtils Sie können nur noch kopieren Sie die Teile, die Sie mögen in Ihre Anwendung.
    • Wow vielen Dank mob, Perl wächst auf mich 😀
    • ...wenn Ihr code ist verteilt, mit einer kompatiblen Lizenz.
    InformationsquelleAutor Moritz Bunkus
Schreibe einen Kommentar