Thread IP Mapping (10 answers)
Opened by LOADBALANCER at 2021-06-29 15:53

LOADBALANCER
 2021-06-30 13:29
#193380 #193380
User since
2021-06-29
5 articles
BenutzerIn
[default_avatar]
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)

View full thread IP Mapping