Netzwerkroute setzen & Prozesse beenden (Netzwerkprogrammierung und Netzwerke mit Perl)

Gast Gast

2006-06-13 18:11

Hallo,
ich benötige hilfe zu einem Script und zwar möchte ich ein automatisches umschalten zwischen 2Mbit Standleitung und
2Mbit DSL-Leitung realisieren. Das umschalten klappt auch soweit, allerdings möchte ich noch einige Prüffunktionen
einbauen.

Dazu würde ich gerne Wissen, wie ich eine Netzwerkroute setzen kann bzw. herausbekomme ob diese schon gesetzt ist.

Ausserdem möchte ich verhindern, das mehr als ein pppd läuft. Wenn doch sollen alle pppd's beendet und die PPP Verbindung
neu aufgebaut werden.

Hatte erst versucht über system("route -n") zu gehen, aber dort bekomme ich die Ausgabe nicht zurück. Gibts da ne Möglichkeit?

Ich hoffe Ihre könnt mir ein paar Tipps/ Hinweis geben.

Mfg
Stefan D.

GwenDragon

2006-06-13 18:40

User since
2005-01-17
14787 Artikel
Admin1

Ausgabe von route -n einlesen:

Code: (dl )

open(PIPE, "route -n |")  || die "cannot open route: $!";
while (my $line = <PIPE>) { 
print $line; 
# Ausgabe von route
}               
close(PIPE) || die "can't close route: $!";

Prüfen ob mehrere pppd laufen:

Code: (dl )

open(PIPE, "ps ax |")  || die "cannot open route: $!";
my @lines = grep( /pppd/, <PIPE>); # Zeile, die pppd enthalten               
close(PIPE) || die "can't close pipe: $!";

if (@lines > 1) { # mehr als ein PID gefunden
  for my $line (@lines) {
    my ($pid) = $line =~ /(d+)/; # erste numerische Zahlen enthalten PID
    system( "kill -s KILL $pid"); # besser wäre TERM zu verwenden
  }
  system( "/etc/init.d/pppd start"); # ppd starten
}

\n\n

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

renee

2006-06-13 18:53

User since
2003-08-04
14371 Artikel
ModeratorIn

man könnte auch mit qx arbeiten...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

stefan5618

2006-06-13 19:11

User since
2006-06-13
1 Artikel
BenutzerIn
[default_avatar]

Danke, werde ich ausprobieren.
Sehe ich das richtig, das bei z.B. open(PIPE, "ps ax |") das filehandle auf die
Ausgabe von ps ax zeigt (durch die Pipe)?

Danke, nochmals. :D

GwenDragon

2006-06-13 19:16

User since
2005-01-17
14787 Artikel
Admin1

Ich habe oben nochwas geändert ;)

Ich hoffe, dass es richtig ist. Mein Unix ist etwas eingerostet.\n\n

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

renee

2006-06-13 19:19

User since
2003-08-04
14371 Artikel
ModeratorIn

es gibt auch den Perl-Befehl kill!

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

GwenDragon

2006-06-13 19:22

User since
2005-01-17
14787 Artikel
Admin1

[quote=renee,13.06.2006, 17:19]es gibt auch den Perl-Befehl kill![/quote]
Ähhm, ja!?! Sehe ich auch gerade. :blush:

Na ja, solange es doch übetr die System-Shell geht. Ich weiß, ist nicht elegant.

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten