[perl] array probleem

[Verwijderd]

ik ben bezig met een perl script die een database uitleest om bepaalde waardes in een config file te zetten

zo selecteer ik bijvoorbeeld alles waar id 1 is uit m'n database en daar komen dan bijvoorbeeld 3 IPs uit.

nu wil ik dus in een while loop hebben dat hij die query uitvoerd en dan de config schrijft op deze manier:

blah blah blah {
ipjes 1.2.3.4,1.2.3.5,1.2.3.6
}

de IPs komen uit de database en verschilen steeds per query hoeveel er uitkomen.

nu heb ik dat op deze manier in elkaar geknutseld:

code:

    while ($this_netsaint = $netsaint->fetchrow_hashref()) {

       if($this_netsaint->{'ping'} eq "1") {
         @ips = $this_netsaint->{'host'};

      print "define service {\n";
      print "  host_name         ";
         foreach $ipje (@ips) {
           print "$ipje,";
         }

  }

maar nu maakt ie voor alles wat ie terugkrijgt een nieuwe while zeg maar, dus ipv ip,ip,ip te doen doet ie voor elk IP een nieuwe define etc.

iemand een idee ?

en nee, ik ben geen ster in perl

[Nielsz]

Wat denk je van die define boven de while zetten?

[Verwijderd]

had ik aan zitten denken maar hij moet voor elke group van IPs weer een nieuwe define doen

[Nielsz]

Op donderdag 21 maart 2002 13:04 schreef milanese het volgende:
had ik aan zitten denken maar hij moet voor elke group van IPs weer een nieuwe define doen

oja

[Verwijderd]

oh perl god, waar bent uuuuuuuu ?

[ACM]

Dan hoef je het niet na 10 minuten te schoppen...

[BierPul]

I agree

_{Like you give a damn}

[eek]

code:

while ($this_netsaint = $netsaint->fetchrow_hashref()) {
    $list{$this_netsaint->{'id'}}{$this_netsaint->{'host'}} = 1;
}

foreach $id ( keys %list ) {
    print "define service {\n";
    print "  host_name       ";
    foreach $ip ( keys %{$list{$id}}) {
        print "$ip,";
    }
}

iets in deze richting zou werken?