| Net :: ifconfig :: wrapper net :: ifconfig :: wrapper ist ein Perl-Modul, das eine einheitliche Möglichkeit bietet, Netzwerkschnittstellen auf FreeBSD- und Linux-Betriebssystemen zu konfigurieren. |
Jetzt downloaden |
Net :: ifconfig :: wrapper Ranking & Zusammenfassung
- Lizenz:
- Perl Artistic License
- Name des Herausgebers:
- Daniel Podolsky
- Website des Verlags:
- http://search.cpan.org/~tpaba/Net-Socket-NonBlock-0.15/NonBlock.pm
Net :: ifconfig :: wrapper Stichworte
Net :: ifconfig :: wrapper Beschreibung
Net :: Ifconfig :: Wrapper ist ein Perl-Modul, das zu konfigurieren Netzwerk-Schnittstellen auf FreeBSD und Linux-Betriebssystemen eine einheitliche Art und Weise zur Verfügung stellt. Net :: Ifconfig :: Wrapper ist ein Perl-Modul, das zu konfigurieren Netzwerk-Schnittstellen auf FreeBSD, OpenBSD, Solaris, Linux, OS X und WinNT (von Win2K) .SYNOPSIS #! / Usr / local / bin / perl eine einheitliche Art und Weise liefert -w # uni-ifconfig.pl # Die einheitliche ifconfig. # Funktioniert auf die gleiche Weise auf FreeBSD, OpenBSD, Solaris, Linux, OS X, WinNT (von Win2K). # Hinweis: aufgrund von Net :: Ifconfig :: Wrapper Einschränkungen 'inet' und 'down' Befehle # funktioniert nicht auf WinNT. +/- alias arbeiten, natürlich. Verwenden Sie streng; Verwendung Net :: Ifconfig :: Wrapper; my $ Usage = {$ ARGV } oder "Interface '$ ARGV ' ist Unknownn" die; if (defined ($ ARGV )!) {print IfaceInfo ($ Info, $ ARGV ); Ausgang 0; } My $ CmdLine = join (, @ARGV); my $ Ergebnis = undef; if ($ CmdLine = \ m / A * ( +) s + Tiefen * Z / i) {$ Ergebnis = Net :: Ifconfig :: Wrapper :: Ifconfig ( 'down', $ 1, '' , ''); } Elsif ($ CmdLine = \ m / A * ( +) s + inets + (d {1,3} (:. D {1,3}) {3}) s + Masken + (d {1,3} (:. d {1,3}) {3}) s * Z / i) {$ Ergebnis = Net :: Ifconfig :: Wrapper :: Ifconfig ( 'inet', 1, $ 2 $, 3 $ ); } Elsif ($ CmdLine = \ m / A * ( +) s + inets + (d {1,3} (:. D {1,3}) {3}) s + Masken + (d {1,3}? (?: d. {1,3}) {3}) s ++ aliass * Z / i) {$ Ergebnis = Net :: Ifconfig :: Wrapper :: Ifconfig ( '+ alias', $ 1, $ 2, $ 3); } Elsif ($ CmdLine = \ m / A * ( +) s + inets + (d {1,3} (:. D {1,3}) {3}) s + (:? Masken + (d {1,3} (:. d {1,3}) {3})? s +) - aliass * Z / i) {$ Ergebnis = Net :: Ifconfig :: Wrapper :: Ifconfig ( '- alias , $ 1, $ 2, ''); } Else {$ Nutzungs sterben; }; $ Ergebnis oder sterben $ @; Ausgang 0; Unter IfaceInfo {my ($ Info, $ Iface) = @_; my $ Res = "$ Iface: t" ($ Info -> {$ Iface} { 'status'} 'UP': 'DOWN').. "n"; while (my ($ Adr, = $ Mask) jede (% {$ Info -> {$ Iface} { 'inet'}})). {$ Res = sprintf ( "TiNet% -15s Maske $ MaskeN", $ Adr ); }; $ Info -> {$ Iface} { 'Ether'} und $ Res = "Haltegurt" $ Info -> {$ Iface} { 'Ether'} "n"...; $ Info -> {$ Iface} { 'descr'} und $ Res = "tdescr '" $ Info -> {$ Iface}. { 'Descr'}. "' N". return $ Res; }; Anforderungen: · Perl-Anforderungen: · Perl.
Net :: ifconfig :: wrapper Zugehörige Software