🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.perl
Article #52193

Re: perl - wyciąganie danych z bazy

#52193
From: MaRc
Date: Mon, 14 Mar 2011 12:17
118 lines
3090 bytes
no to lecimy dalej z wyciąganiem danych z bazy.

fetchall zwraca mi referencje do tablicy i na tym chce zrobic foreach ale 
nie wiem jak dobrać się po kolei do poszczególnych elementów w pętli.

#v+
my $allhost = $dbase->prepare("SELECT id FROM nodes WHERE ownerid = ?");
my $hid;
my @hid;
foreach $id ((2))
{
                 $allhost->execute($id);
                 $hid = $allhost->fetchall_arrayref();
                 #print "${@hid[0]} \n";
                 #print "$$hid[0]->[0]\n";

};
print Dumper($hid);
#v-

dumper zwraca mi referencje tablicy gdzie każdy wiersz to kolejna referencja.

#v+
$VAR1 = [
           [
             '2'
           ],
           [
             '950'
           ],
           [
             '1197'
           ],
           [
             '1780'
           ],
           [
             '1781'
           ],
           [
             '1782'
           ],
           [
             '1783'
           ],
           [
             '1784'
           ],
           [
             '1785'
           ],
           [
             '1786'
           ],
           [
             '1787'
           ],
           [
             '2413'
           ],
           [
             '2414'
           ],
           [
             '3178'
           ],
           [
             '3179'
           ],
           [
             '3180'
           ],
           [
             '3181'
           ],
           [
             '3182'
           ],
           [
             '3183'
           ],
           [
             '3184'
           ],
           [
             '3185'
           ],
           [
             '3186'
           ],
           [
             '3187'
           ],
           [
             '3188'
           ],
           [
             '3189'
           ],
           [
             '3190'
           ],
           [
             '3191'
           ],
           [
             '3192'
           ],
           [
             '3193'
           ],
           [
             '3234'
           ]
         ];
#v-

jak mogę dobrać się do tych wartości w pętli foreach?
Technical Details
Message-ID: <ill10a$t37$1@pippin.nask.net.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.nask.pl!news.nask.org.pl!not-for-mail
References: <ilbcmq$57j$1@pippin.nask.net.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.nask.pl!news.nask.org.pl!not-for-mail
From: MaRc <marc@gmails.com>
Newsgroups: pl.comp.lang.perl
Subject: Re: perl - wyciąganie danych z bazy
Date: Mon, 14 Mar 2011 13:17:14 +0100
Organization: NASK - www.nask.pl
Lines: 119
Message-ID: <ill10a$t37$1@pippin.nask.net.pl>
References: <ilbcmq$57j$1@pippin.nask.net.pl>
NNTP-Posting-Host: 193.59.37.1
Mime-Version: 1.0
X-Trace: pippin.nask.net.pl 1300105034 29799 193.59.37.1 (14 Mar 2011 12:17:14 GMT)
X-Complaints-To: abuse ATSIGN nask.pl
NNTP-Posting-Date: Mon, 14 Mar 2011 12:17:14 +0000 (UTC)
In-Reply-To: <ilbcmq$57j$1@pippin.nask.net.pl>
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.2.14) Gecko/20110223 Thunderbird/3.1.8
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit