Wie kann ich geschachtelte Schleifen verarbeiten, ohne foreach-Anweisungen in Perl zu verschachteln?

Question

Ich habe ein Perl-Skript, das foreach Schleifen nistet, wie unten zu sehen. Es dauert eine lange Zeit:

#! /usr/bin/perl 

use strict; 
use warnings; 

my @sites = ('a', 'b', 'c'); 
my @servers = ('A', 'B'); 
my @data_type = ("X", "Y", "Z"); 

foreach my $site (@sites) { 
    foreach my $server_type (@servers) { 
     foreach my $data (@data_type) { 
      #statements 
     } 
    } 
} 

Nesting foreach Aussagen wie diese eine lange Zeit in Anspruch nimmt und es ist schwer zu lesen und nicht sehr hübsch. Kann jemand einen besseren Weg vorschlagen, diese Struktur mit Hashes oder einer anderen cleveren Struktur zu codieren?

Answer 1

sehe ich nicht, was dein Problem ist, aber man könnte ein generisches Kartesisches Produkt verwenden, wenn Sie SQL oder etwas verwendet:

sub cartesian { 
    my @C = map { [ $_ ] } @{ shift @_ }; 
    foreach (@_) { 
     my @A = @$_; 
     @C = map { my $n = $_; map { [ $n, @$_ ] } @C } @A; 
    } 
    return @C; 
} 

my @sites = ('a', 'b', 'c'); 
my @servers = ('A', 'B'); 
my @data_type = ("X", "Y", "Z"); 

foreach (cartesian(\@sites, \@servers, \@data_type)) { 
    ($data, $server_type, $site) = @$_; 
    print "$site $server_type $data\n"; 
} 

Answer 2

foreach ist vorzuziehen, da es lesbar ist. Was genau meinen Sie mit "jedes Array kann Probleme verursachen" (welche Probleme?) Und "Werte können nicht übereinstimmen" (welche Werte?)

Answer 3

Das einzige Problem, das ich möglicherweise bei der Verwendung von verschachtelten Schleifen habe, ist eine Mehrdeutigkeit in was $_ ist . Wenn man bedenkt, dass Sie es nicht einmal benutzen, glaube ich nicht, dass es einen besseren Weg gibt, zu tun, was Sie wollen.

Als Nebenbemerkung möchte ich hinzufügen, dass $_ in diesem Fall gut definiert ist, aber als Programmierer möchte ich vielleicht nicht mit dem Overhead der Erinnerung daran umgehen, worauf es bei jedem Schritt ankommt.

Haben Sie irgendwelche spezifischen betrifft mit dem Code?

Answer 4

Sie eine klassische for Schleife verwenden kann, statt.

for(my $i = 0; $i <= $#sites; $i++){ 
    for(my $j = 0; $j <= $#servers; $j++){ 
     for(my $k = 0; $k <= $#data_type; $k++){ 
      do_functions ... 

Aber das hinterlässt immer noch die Probleme und Mismatchs, die Sie angesprochen haben. Ich schlage vor, dass Sie diese Probleme im do_functions Teil behandeln.

Answer 5

Sie könnten einfach for verwenden.

(sorry, konnte nicht widerstehen)

Answer 6

Wenn ich Ihre Frage richtig verstehe, dann fragen Sie, wie Hashes zu verwenden, mit foreach Diskrepanzen zu vermeiden, dass Sie in Ihrem Array Beispiel haben würden ?.

Wenn ja dann ist hier ein Beispiel:

use strict; 
use warnings; 

my %sites = (

    a => { 
     A => { 
      data_type => [ 'X', 'Y' ], 
     } 
    }, 

    b => { 
     B => { 
      data_type => [ 'Y', 'Z' ], 
     } 
    }, 

    c => { 

    }, 
); 

for my $site (keys %sites) { 
    for my $server (keys %{ $sites{ $site } }) { 
     for my $data (keys %{ $sites{ $site }{ $server } }) { 
      my @data_types = @{ $sites{ $site }{ $server }{ data_type } }; 
      say "On site $site is server $server with $data @data_types"; 
     } 
    } 
} 

Sie können auch während & jeder verwenden, die auf dem Auge leichten Code macht produziert:

while (my ($site, $site_info) = each %sites) { 
    while (my ($server, $server_info) = each %{ $site_info }) { 
     my @data_types = @{ $server_info->{data_type} }; 
     say "On site $site we have server $server with data types @data_types" 
      if @data_types; 
    } 
} 

Beachten Sie auch, ich letzte Schleife entfernt im obigen Beispiel, weil es derzeit mit meinen Beispiel-Hash-Daten überflüssig ist.

NB. Wenn Sie vorhaben, Schlüssel zu ändern oder aus der Schleife auszubrechen, lesen Sie bitte each und wie es sich auf die Iteration auswirkt.

PS. In diesem Beispiel geht es nicht um die Schleife, sondern darum, dass Daten am besten als Hash und nicht als Array dargestellt werden. (obwohl es nicht 100% von der Frage klar ist, die so ist!).

Answer 7

Verwenden Sie meine Set::CrossProduct Modul oder Algorithm::Loops verwenden.Sie sollten keine hartcodierten verschachtelten Strukturen erstellen müssen, um mit diesen Problemen fertig zu werden. Beide Module können dies für eine beliebige Anzahl von Arrays tun.

use Set::CrossProduct; 

my @sites = ('a', 'b', 'c'); 
my @servers = ('A', 'B'); 
my @data_type = ("X", "Y", "Z"); 

my $cross = Set::CrossProduct->new( 
    [ \@sites, \@servers, \@data_type ] 
    ); 

while(my $tuple = $cross->get) { 
    print "@$tuple\n"; 
    } 

Nicht nur das, sondern die Cursor geben Ihnen Möglichkeiten im Iterator zu bewegen, so dass Sie sich auf die aktuelle Kombination nicht zu begrenzen. Sie können die vorherigen und nächsten Kombinationen überprüfen, die für Grenzen nützlich sein können (wie wenn das nächste Tupel ein anderer Server ist).

Achten Sie auf Leute, die alle Kombinationen im Speicher erstellen möchten. Das ist auch nicht nötig.