Server-Verzeichnis überwachen (SSH) (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]13982[/thread]

Server-Verzeichnis überwachen (SSH)

Leser: 34

Articles: hide open all | hide show old branches

+16 replies
DonKnilch

2009-09-04 10:13
User since
2009-09-04
62 Artikel
BenutzerIn
Hi,

ich suche eine Möglichkeit, mehrere Verzeichnisse auf einem Server zu überwachen. Die Verbindung dabei wird mittels SSH realisiert und das funktioniert soweit auch. Allerdings bekomme ich die Anzeige des Verzeichnisses einfach nicht hin. Navigieren auf dem Server funktioniert nicht und mir fällt gerade keine passende Möglichkeit ein. Für den SSH-Aufbau benutze ich Net::SSH::Perl.

Hier ein bißchen Code:
Code: (dl )

1 2 3 4 5 6 7 8 9 10

my $ssh = Net::SSH::Perl->new($server); $ssh->login('#######','#######') || die "Cannot connect to Server"; my $dir = "/data/log/"; $ssh->cmd("cd $dir") || warn "Cannot change to directory $dir $!"; print $ssh->cmd('pwd');
Ich habe da schon ein wenig rumprobiert und bisher hatte ich keinen Erfolg. Beim Verzeichniswechsel kommt immer die Warnmeldung, es funktioniert also nicht. Wie kann ich das umsetzen? Gibt es vielleicht eine ganz andere Lösung?

Ich bin euch für hilfreiche Tipps dankbar.

MfG
DonKnilch
- +8 replies
- Linuxer
  
  2009-09-04 10:26
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Was ist denn in $! enthalten?
  Kannst Du das Verzeichnis denn wechseln, wenn Du Dich direkt anmeldest und die Aktion selber durchführst?
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +7 replies
  - DonKnilch
    
    2009-09-04 10:41
    
    User since
    2009-09-04
    62 Artikel
    BenutzerIn
    
    $! gibt mir leider nichts aus, warum auch immer, es erscheint lediglich meine Warnmeldung und die betroffene Zeile.
    
    Manuell kann ich alles auf dem Server ausführen.
    - +2 replies
    - Linuxer
      
      2009-09-04 10:46
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Schau Dir mal die perldoc zum Modul an:
      
      http://search.cpan.org/perldoc?Net::SSH::Perl
      
      Für die cmd() Methode steht da folgendes:
      
      Code (perl): (dl )
      
      ($out, $err, $exit) = $ssh->cmd($cmd, [ $stdin ])
      
      Nutze das mal, um STDOUT, STDERR und den Exitcode des ausgeführten Kommandos anzeigen zu lassen.
      
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - DonKnilch
        
        2009-09-04 10:55
        
        User since
        2009-09-04
        62 Artikel
        BenutzerIn
        
        Das habe ich auch schon mal getestet und es ergibt die Werte 1, "", "" (Out, Err, Exit). Ich werde daraus nicht schlau.
        
        Die Zeile habe ich so eingegeben:
        
        Code: (dl )
        
        my ($out, $err, $exit) = $ssh->cmd("cd $dir")
    - +4 replies
    - kristian
      
      2009-09-04 11:21
      
      User since
      2005-04-14
      684 Artikel
      BenutzerIn
      
      Hallo
      
      2009-09-04T08:41:15 DonKnilch
      $! gibt mir leider nichts aus, warum auch immer, es erscheint lediglich meine Warnmeldung und die betroffene Zeile.
      
      Manuell kann ich alles auf dem Server ausführen.
      
      Ein Schuß ins Blaue, was steht in $@?
      Auf welchem Server gibt es '/data/log/'?
      
      Gruß
      Kristian
      - DonKnilch
        
        2009-09-04 11:29
        
        User since
        2009-09-04
        62 Artikel
        BenutzerIn
        
        In $@ steht ebenfalls nichts ("").
        
        Auf welchem Server? Ich kann dir da gerade nicht folgen.
      - +2 replies
      - GwenDragon
        
        2009-09-04 11:32
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        kristian meint: Das Verzeichnis /data/log/ ist ihm unbekannt.
        
        Ganz ehrlich, ich fand unter Linux so ein Verzeichnis noch nie.
        /data ist unterhalb Root sehr seltsam!
        
        //EDIT: Und Windows ist ja kaum gemeint.
        Last edited: 2009-09-04 11:33:37 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        DonKnilch
        
        2009-09-04 12:26
        
        User since
        2009-09-04
        62 Artikel
        BenutzerIn
        
        Sorry, da habt ihr Recht. Ich habe das Verzeichnis etwas gekürzt, das richtige Verzeichnis sieht anders aus. Das tut aber eigentlich nichts zur Sache, denn ich habe auch schon andere Verzeichnisse ausprobiert. Die Verzeichnisse existieren, das ist definitiv keine Fehlerquelle.
- +7 replies
- DonKnilch
  
  2009-09-04 17:19
  User since
  2009-09-04
  62 Artikel
  BenutzerIn
  Ich habe jetzt mal noch einen alternativen Weg getestet, aber auch da habe ich Probleme. Statt alles in einem Script zu erledigen, habe ich einen Teil ausgelagert auf den Server selber. So habe ich nicht mehr das Problem mit dem Verzeichnis, weil ich direkt ohne SSH darauf zugreifen kann. Dafür muss ich allerdings vom ersten Script aus das zweite starten und dieses muss mir ein Array mit den Werten (sprich den Files) zurückliefern. Dies wollte ich über einen Pipe umsetzen. Leider gibt es Probleme beim Starten des zweiten Scripts bzw. bei der Rückgabe der Werte. Teilweise startet er das Script, manchmal aber auch nicht (getestet durch eine Ausgabe in eine Textdatei). Auch wenn das Script startet, liefert es mir nichts zurück und mein Programm meldet einen "readline on closed filehandle..." für den Handle, der die Rückgabe verarbeiten soll.
  
  Der Aufruf sieht so aus:
  
  Code: (dl )
  
  1 2
  
  open HANDLE, $ssh->cmd('perl Filewatcher.pl |') || die "Cannot start script; $!";
  
  Die Zeile mit dem Fehler:
  
  Code: (dl )
  
  while (<HANDLE>) { push(@files, $_); }
  
  Das Script auf dem Server selbst funktioniert, ich habe es lokal bei mir und manuell auf dem Server getestet. Auch die Pipe hat lokal funktioniert, nur in Kombination mit SSH gibt es Probleme. Außer dem o.g. Aufruf habe ich alternativ auch noch die Varianten mit system('...') und exec('...') ausprobiert.
  
  Hat jemand eine Idee?
  - kristian
    
    2009-09-04 17:54
    
    User since
    2005-04-14
    684 Artikel
    BenutzerIn
    
    Hallo
    
    Ich glaube du solltest einfach mal sagen, was du vorhast. Welche Umgebung hast du da? Server / Client? Was willst du erreichen?
    Ev. geht es auf anderem Wege viel einfacher und zuverlässiger?
    z.B. ein einfaches CGI-Script ggf. über https ?
    
    Gruß
    Kristian
  - +5 replies
  - Linuxer
    
    2009-09-04 20:59
    User since
    2006-01-27
    3890 Artikel
    HausmeisterIn
    
    Hi,
    
    ich habe mir das Net::SSH::Perl mal daheim installiert und getestet.
    Ausserdem hab ich hier mehr Zeit zum Grübeln.
    
    So, hier mal meine Erkenntnisse:
    
    1.
    
    Code: (dl )
    
    my ( $var ) = $ssh->cmd('cd /dir') or die "";
    
    Das muss zwangsläufig mit der Warnung enden, weil cmd() immer 3 Werte liefert, nämlich STDOUT, STDERR und EXITCODE. Das Kommando "cd /dir" wird erfolgreich ausgeführt und liefert einen Exitcode von 0.
    Dieses wird ausgewertet und gilt als "FALSE" wodurch eben das "die ..." ausgeführt wird.
    
    Beachte (welcher Wert in $var landet):
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    $ perl -le ' sub foo { return qw( a b c ); } my $var = foo(); print "Resultat: $var"; ' Resultat: c $
    
    Du solltest immer alle 3 Werte abfangen und auswerten!
    
    2. In der Perldoc des Moduls ist nachzulesen, was bei cmd() so alles zu beachten ist. Z.B. dass u.U. zwei separate cmd()-Aufrufe in zwei separate Sessions ausgeführt werden und damit nichts miteinander zu tun haben!
    
    Beispiel:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
    
    #!/usr/bin/perl # vi:ts=4 sw=4 et: use strict; use warnings; use Net::SSH::Perl; my $ssh = Net::SSH::Perl->new( 'localhost' ) or die "ssh->new: $!"; $ssh->login(); # Achtung! zwei Kommandos in einem Aufruf! my ( $out, $err, $exit ) = $ssh->cmd( 'cd /var/tmp; pwd' ); printf "Exitcode: %d\nOutput: %s\nError: %s\n--\n", $exit, $out || '', $err || ''; ( $out, $err, $exit ) = $ssh->cmd( 'pwd' ); printf "Exitcode: %d\nOutput: %s\nError: %s\n--\n", $exit, $out || '', $err || '';
    
    Resultat:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11
    
    $ perl5.10.0 /tmp/ssh.pl Exitcode: 0 Output: /var/tmp Error: -- Exitcode: 0 Output: /home/username Error: --
    
    3. Du hast ein Skript erstellt, dass den relevanten Teil auf dem Remote-System erledigt und die Ausgabe auf STDOUT generiert (oder wie genau?). Warum weist Du diese Ausgabe nicht einfach einer Variable (s.o.) zu und verarbeitest diese?
    
    4. Hast Du Dir die Doku überhaupt mal angeguckt?
    
    5. Beachte bitte die Operatoren-Rangfolge beim open.
    Entweder Du nutzt:
    
    Code: (dl )
    
    open( HANDLE, $filename_whatever ) || die "$!";
    
    oder Du nutzt:
    
    Code: (dl )
    
    open HANDLE, $filename_whatever or "$!";
    
    Beachte, wann die Klammern des open() geschrieben werden und wann nicht!
    
    Greetz,
    Linuxer
    
    edit: Code-Beispiel(1.): Ausgabe von $var erweitert.
    edit2: Code-Beispiel(2.): Ausgabe ueberarbeitet.
    Last edited: 2009-09-04 21:20:45 +0200 (CEST)
    meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
    Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
    - +4 replies
    - Dubu
      
      2009-09-05 15:55
      
      User since
      2003-08-04
      2145 Artikel
      ModeratorIn + EditorIn
      
      2009-09-04T18:59:32 Linuxer
      2. In der Perldoc des Moduls ist nachzulesen, was bei cmd() so alles zu beachten ist. Z.B. dass u.U. zwei separate cmd()-Aufrufe in zwei separate Sessions ausgeführt werden und damit nichts miteinander zu tun haben!
      
      Wenn ich ich recht erinnere, stand dort, dass das nur für SSHv1 gilt (was wohl kaum noch zum Einsatz kommt), aber nicht für SSHv2.
      - +3 replies
      - Linuxer
        
        2009-09-05 16:01
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        hehe, gut beobachtet.
        
        Ich hatte es gestern ausprobiert und obwohl ich explizit SSHv2 angegeben hatte, wurden bei meinem Test die beiden cmd()-Aufrufe unabhängig voneinander verarbeitet.
        
        Wenn man das Debugging einschaltet, dann ist zu erkennen, dass die Anmeldung einmalig erfolgt und pro cmd()-Aufruf ein "channel" angefordert/aufgebaut wird.
        
        Dieses Verhalten ist bei SSHv1 und bei SSHv2 zu beobachten...
        
        edit: Beitrag komplett überarbeitet.
        Last edited: 2009-09-05 17:04:00 +0200 (CEST)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +2 replies
        
        DonKnilch
        
        2009-09-24 11:08
        
        User since
        2009-09-04
        62 Artikel
        BenutzerIn
        
        Danke für eure Antworten.
        
        Ich habe das Problem mittlerweile gelöst. Dazu habe ich einen zweiten Prozess erstellt, der auf dem Server kontinuierlich einliest und auf eine Pipe schreibt. Der Parent-Prozess wiederum liest diese Ergebnisse ein und verarbeitet sie entsprechend.
        
        nepos
        
        2009-09-24 12:54
        
        User since
        2005-08-17
        1420 Artikel
        BenutzerIn
        
        Statt immer wieder das komplette Directory zu lesen könnte für die eventuell inotify interessant sein. Damit verbrätst du nicht sinnlos Systemresourcen, falls sich nichts ändert.

View all threads created 2009-09-04 10:13.