Thread IP Mapping
(10 answers)
Opened by LOADBALANCER at 2021-06-29 15:53
Also habe jetzt die Daten excludet und lese Sie von einer csv Datei...
Alles klappt. Nur fast zu jedem Eintrag habe eine leere Zeile... Wo ist hier der Fehler...? Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 use 5.020; use warnings; open FILE,'<',"Eingabe.csv" or die "Can't open data $!\n"; my @lines = (); while (my $zeile = <FILE>) { push @lines, $zeile; } close (FILE); my @areas = qw(area1 area2 area3); my $ausgabe = 'Ausgabe.csv'; #my @lines = split /\n/,$device_csv; my @headers = split /\s*;\s*/, shift @lines; # Erste Zeile brauchen wir nicht my @data = map [ split /\s*;\s*/ ], @lines; # Array of Arrays! open (my $ehe,'>',$ausgabe) or die "Fehler beim Oeffnen der Datei '$ausgabe': '$!'\n"; say $ehe "Ip;destination;vrf;kuerzel;umgebung"; for my $area (@areas) { # fuer alle drei Areas my @brides = @data; # und alle Adressen my @grooms = @data; # zu allen Partnern for my $bride (@brides) { shift @grooms; # nur "vorwärts" verknüpfen MARRIAGE: for my $groom (@grooms) { my $ip = $bride->[1]; my $destination = $groom->[1]; my $kuerzel = $groom->[2]; my $vrf = $area; # ?? soll's das sein? my $umgebung = $groom->[4]; # ?? Das fehlt im Beispiel? say $ehe "$ip;$destination;$vrf;$kuerzel;$umgebung"; } } } close $ehe; say "Geschafft."; Last edited: 2021-06-30 14:02:39 +0200 (CEST) |