Hallo, sicher zu trivial für euch, aber ich hab hier ein Array und möchte einen Wert daraus auslesen.

Mittels:
use Data::Dumper;
print Dumper \@dns_antworten;

hab ich rausgefunden, dass es so aussieht:

$VAR1 = [
[
bless( {
'rdlength' => 15,
'ttl' => 603901,
'name' => '1.71.113.194.in-addr.arpa',
'ptrdname' => 'jds.ronnet.de',
'class' => 'IN',
'type' => 'PTR',
'rdata' => 'jdsronnetde'
}, 'Net::DNS::RR::PTR' )
]
];


Mich intressiert eigentlich nur "ptrdname". Wie komme ich da ran? Für eine Antwort wäre ich dankbar.

versuch mal $dns_antworten[0]->[0]->{ptrdname}

übrigens, die eckigen klammern weisen auf arrays und die geschweiften auf hashes hin. das bless bedeutet, dass es sich dabei nicht um einen einfachen hash handelt sondern um ein objekt der klasse Net::DNS::RR::PTR.

Danke, Taulmarill so funktioniert.

Und da es ein Objekt ist, solltest du eigentlich die Klassenmethoden benutzen, und nciht direkt auf das Array drauf zugreifen.

Das ist aber unschön. Wie Taulmarill es gesagt hat: Es ist ein Objekt der Klasse Net::DNS::RR::PTR. Dann sollte man auch die Methoden dazu verwenden und nicht direkt auf den Wert zugreifen...

Wenn ich wüsste, wie das geht, müsste ich hier keine Fragen über Arrays stellen. :D

Ich habe Dir doch geschrieben wie das geht...

Du musst Dir nur das Objekt aus dem Array holen (Grundlage von havi plus Info aus perlreftut = Info von Taulmarill). Und dann schaust Du in der Doku zu Net::DNS::RR::PTR wie Du auf das Attribut zugreifen kannst...

[quote=renee,13.10.2006, 12:28]Und dann schaust Du in der Doku zu Net::DNS::RR::PTR wie Du auf das Attribut zugreifen kannst...[/quote]
Dort war ich schon, konnte aber mit dem $rr nichts anfangen:

print "ptrdname = ", $rr->ptrdname, "\n";


???

Das Array beziehe ich übrigens aus einem Hash-Wert der mir von:

my $res = Net::DNS::Resolver->new;
$dns_name = $res->query('198.133.219.25');
@dns_antworten=$dns_name->{answer};

bereitgestellt wird. Da kann man sicher auch direkt reinspringen, aber ich hab mir halt so geholfen. (Auch wenn ihr jetzt vielleicht die Hände über den Köpfen zusammenschlagt. ;-) )Für Vorschläge bin ich natürlich offen.

Und welchen Unterschied machts, wenn ich direkt in des Array reingreife oder Klassenmethoden benutze. Ich brauch doch nur den Wert, der da steht und weiter nichts. Ist das schneller, besser oder nur eine rein ideologische Kiste?

Das $rr ist einfach das Objekt von Net::DNS::RR::PTR.

Auch Dein $dns_name ist ein Objekt. Schreib Deinen Code mal lieber so:

Oder wenn Du mehrere DNS-Antworten hast:



Kannst Du bitte in Zukunft [code]-Tags um Deinen Code machen? (siehe http://board.perl-community.de/cgi-bin....=ibcode )