nslookup nicht auflösbare hosts in datei schreiben (Allgemeines zu Perl)

[thread]15143[/thread]

nslookup nicht auflösbare hosts in datei schreiben

Leser: 19

Articles: hide open all | hide show old branches

+10 replies
Gast draekster

2010-06-14 14:13

Hallo
Ich hab mir ein Perl-Skript gebastelt das u.a. mir per nslookup Hostnamen auflöst und mir deren IP in eine Datei (Cache) schreibt.
Klappt auch alles wie es soll.

Das Problem ist aber das ich auch Hostnamen dabei habe die ich nicht auflösen kann (weil der DNS mist macht) und diese möschte ich in einen extra Cache schreiben.
Das hab ich aber bis jetz noch nicht geschafft und hoffe ihr könnt mir helfen.

mal ein Beispiel:

Ich mache ein nslookup auf einen Host und bekomme folgende ausgabe im CMD-Fenster

S:\>nslookup HOST
Server: dns-server.domain.de
Address: ip.des.dns.servers

*** HOST wurde von dns-server.domain.de nicht gefunden: Non-existent domain

Mit Perl bekomme ich nur die letzte Zeile und genau die will ich in der Datei

Im Skript mache ich die "Abfrage" so:

@nslookup=qx{"nslookup $HOST"};

Ich hoffe mir kann jemand helfen und sag schonmal danke
mfg draekster
- +7 replies
- pq
  
  2010-06-14 14:25
  User since
  2003-08-04
  12209 Artikel
  Admin1
  ich glaub, ich verstehe gerade das problem nicht ganz. im grunde hast du ja alle werkzeuge beisammen.
  was genau fehlt noch?
  ich kann nur raten:
  
  Code (perl): (dl )
  
  1 2 3
  
  if ($nslookup[-1] =~ m/wurde von .* nicht gefunden: Non-existent domain/) { # not found, write to different file {
  
  solltest dir klarmachen, dass das nicht portabel ist und bei jemdem, der englisch eingestellt hat, nicht matcht.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +6 replies
  - Gast draekster
    
    2010-06-14 14:33
    
    also nochmal
    
    wenn ich den nslookup mach und einen host nicht auflösen kann bekomm ich dasl ausgabe nur
    
    *** HOST wurde von dns-server.domain.de nicht gefunden: Non-existent domain
    
    aber weder in eine (mir bekannte) Variable oder das is es sondt irgendwie verarbeiten könnte aber genau diese Zeile brauch ich ja
    
    mit "$nslookup[-1] =~ m/wurde von .* nicht..." (oder ähnlichem) hab ichs schon versucht aber hat nicht geklappt
    - +5 replies
    - pq
      
      2010-06-14 14:40
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      Guest draekster
      mit "$nslookup[-1] =~ m/wurde von .* nicht..." (oder ähnlichem) hab ichs schon versucht aber hat nicht geklappt
      
      hat nicht geklappt? heisst?
      
      also, wie macht man das. debuggen.
      
      du sagst, die letzte zeile der ausgabe sei die fragliche beispielausgabe. soweit einverstanden?
      
      dein befehl mit qx schreibt die ausgabe von nslookup in das array @nslookup. immer noch einverstanden?
      
      $array[-1] bezeichnet das letzte element in @array.
      $nslookup[-1] bezeichnet also die letzte zeile in @nslookup. laut deiner definition sollte diese deine beispielausgabe sein.
      
      immer noch einverstanden?
      wenn also die regex nicht matcht, was macht man dann? blind aufgeben? nein. man kann ja *nachgucken*.
      
      etwas matcht nicht auf eine regex? na dann lasse ich mir ganz simpel per print ausgeben, was drinsteht.
      
      jetzt mach mal bitte folgendes:
      
      Code (perl): (dl )
      
      1 2 3
      
      use Data::Dumper; local $Data::Dumper::Useqq = 1; warn Dumper \@nslookup;
      
      und paste, was als ausgabe kommt.
      
      das kannst du dir dann für die zukunft merken. du musst nicht für jedes statement, was nicht matcht, im forum nachfragen, denn du bist derjenige, der am schnellsten rausfinden kann, warum etwas nicht matcht. wir sitzen nicht an deinem rechner und können nicht hellsehen (meistens jedenfalls nicht).
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +4 replies
      - Gast draekster
        
        2010-06-14 14:58
        
        Ich sollte vieleicht noch dazu sagen das ich etwa nur ein 3/4 Jahr Erfahrung mit Perl habe und alles andere als ein Profi bin. Und aufgeben tu ich noch lange nicht!
        Es ist nur äuserst ermüdent stundenlang zu suchen und zu probieren und nichts funktioniert!
        Aber trotzdem danke für deine Hilfe
        
        also die Ausgabe is folgende(das denk ich mal wichtigste denn es ist sehr lang und wiederholt sich oft)
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        *** HOST1 wurde von DNS.Domain.de nicht gefunden: Non-existent domain $VAR1 = [ "Server: DNS.Domain.de\n", "Address: DNS.IP\n", "\n" ]; *** HOST2 wurde von DNS.Domain.de nicht gefunden: Non-existent domain $VAR1 = [ "Server: DNS.Domain.de\n", "Address: DNS.IP\n", "\n" ]; $VAR1 = [ "Server: DNS.Domain.de\n", "Address: DNS.IP\n", "\n", "Name: HOST3\n", "Address: IP\n", "\n" ];
        
        aber ich denke ich hab grad eine Fehler gefunden
        Last edited: 2010-06-14 15:03:01 +0200 (CEST)
        
        murphy
        
        2010-06-14 15:09
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Es spricht einiges dafür, dass das Problem darin begründet liegt, dass die Ausgabe der Fehlermeldung auf STDERR erfolgt, während Du nur STDOUT in Dein Skript umleitest.
        
        Das lässt sich beheben, indem man mit IPC::Open3 oder ähnlichen Modulen arbeitet, indem man die Shell im qx{}-Befehl anweist, STDERR auf STDOUT umzuleiten (nslookup ... 2>&1 oder ähnliches, je nach Shell), oder indem man es gleich gescheit macht und statt eines Aufrufs des externen Programmes nslookup ein passendes Perlmodul benutzt.
        When C++ is your hammer, every problem looks like your thumb.
        
        +2 replies
        
        pq
        
        2010-06-14 15:12
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        aha, die fehlermeldung landet auf STDERR, die wird gar nicht mit qx{} eingefangen.
        siehste mal, hat doch geholfen. wieso "trotzdem danke"?
        erstens kann ich nicht ahnen, wie lange du schon programmierst und zweitens kannst du, wenn du was von der hilfe nicht verstehst, ja immer noch fragen. ist doch kein beinbruch.
        
        also, wenn du die fehlermeldung mit in dem output von qx haben willst:
        qx{nsloopup $HOST 2>&1}
        
        keine ahnung allerdings, ob dsas unter windows genauso funktioniert.
        das leitet STDERR auf STDOUT um.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        Gast draekster
        
        2010-06-14 15:17
        
        OK Danke an euch das hat jetzt funktioniert und komm endlich weiter.
        Ich werd erst mal mit der Umleitung weiter machen (ja es geht unter Windows) und mir später das Modul mal genauer angucken.
        
        mfg draekster
        Last edited: 2010-06-14 15:18:43 +0200 (CEST)
- topeg
  
  2010-06-14 14:28
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  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
  
  #!/usr/bin/perl use strict; use warnings; my $HOST='www.xx.yy'; my $host_log='hosts.log'; my $host_err='hosts.err'; open(my $lh,'>>',$host_log) or die("ERROR open $host_log ($!)\n"); open(my $eh,'>>',$host_err) or die("ERROR open $host_err ($!)\n"); my @nslookup=qx{nslookup $HOST}; if(@nslookup) { if($nslookup[-1]=~/\Qserver can't find/) { print $eh @nslookup; } else { print $lh @nslookup; } } else { print $eh "ERROR EXEC nslookup $HOST ($?)\n"; } close($eh); close($lh);
  
  EDIT:
  Keine Anfühungszeichen:
  my @nslookup=qx{nslookup $HOST};
  Last edited: 2010-06-14 14:49:24 +0200 (CEST)
- pq
  
  2010-06-14 14:42
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  und wenn du das script quasi als übung fertig hast, kannst du dann Net::Nslookup benutzen. das sollte dann mit jeder spracheinstellung und z.b. auch unter linux laufen =)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2010-06-14 14:13.