NET :: iFconfig :: Wrapper

NET :: iFconfig :: Wrapper is een PERL-module die een uniforme manier biedt om netwerkinterfaces op FreeBSD- en Linux-bestuurtjes te configureren.
Download nu

NET :: iFconfig :: Wrapper Rangschikking & Samenvatting

Advertentie

  • Rating:
  • Vergunning:
  • Perl Artistic License
  • Prijs:
  • FREE
  • Naam uitgever:
  • Daniel Podolsky
  • Uitgever website:
  • http://search.cpan.org/~tpaba/Net-Socket-NonBlock-0.15/NonBlock.pm

NET :: iFconfig :: Wrapper Tags


NET :: iFconfig :: Wrapper Beschrijving

NET :: iFconfig :: Wrapper is een PERL-module die een uniforme manier biedt om netwerkinterfaces op FreeBSD- en Linux-OSES te configureren. NET :: iFconfig :: Wrapper is een PERL-module die een uniforme manier biedt om netwerkinterfaces op FreeBSD, OpenBSD, Solaris, Linux, OS X en WINNT (van Win2K) te configureren. Synopsis #! / Usr / local / bin / PERL -W # uni-ifconfig.pl # de opdracht Unified IFCONFIG. # Werkt op dezelfde manier op FreeBSD, OpenBSD, Solaris, Linux, OS X, WINNT (van Win2k). # Opmerking: Vanwege net :: iFconfig :: Wrapper beperkingen 'Inet' en 'Down'-opdrachten werken niet aan WINNT. +/- alias werkt natuurlijk. strikt gebruik; Gebruik NET :: iFconfig :: Wrapper; mijn $ gebruik = {$ argv } of sterven "interface" $ argv 'is onbekend "; if (gedefinieerd ($ argv )) {print ifaceinfo ($ info, $ argv ); afslag 0; } MIJN $ CMDLINE = JOIN ('', @ARGV); mijn $ resultaat = undef; if ($ CMDLINE = ~ M / AS * ( +) S + DOWN * Z / I) {$ result = net :: iFconfig :: wrapper :: iFconfig ('down', $ 1, '' , ''); } Elsif ($ CMDLINE = ~ M / AS * ( +) S + INETEN + (D {1,3} (?:. D {1,3}) {3}) S + Maskers + (D {1,3} (?:. D {1,3}) {3}) S * Z / I) {$ result = net :: iFconfig :: wrapper :: iFconfig ('Inet', $ 1, $ 2, $ 3 ); } Elsif ($ CMDLINE = ~ M / AS * ( +) S + INETEN + (D {1,3} (?:. D {1,3}) {3}) S + Maskers + (D {1,3} (?:. D {1,3}) {3}) S ++? ALIASS * Z / I) {$ resultaat = net :: iFconfig :: Wrapper :: iFconfig ('+ alias', $ 1, $ 2, $ 3); } Elsif ($ CMDLINE = ~ M / AS * ( +) S + Inets + (D {1,3} (?:. D {1,3}) {3}) S + (:? Masks + (D {1,3} (?:. D {1,3}) {3}) S +)? - Aliassen * Z / I) {$ result = net :: iFconfig :: wrapper :: iFconfig ('- alias ', $ 1, $ 2,' '); } anders {DIE $ GEBRUIKER; }; $ Resultaat of sterven $ @; afslag 0; Sub IFACEINFO {MY ($ INFO, $ IFACE) = @_; Mijn $ Res = "$ IFACE: T". ($ info -> {$ iface} {'status'}? 'omhoog': 'down'). "N"; Terwijl (mijn ($ addr, $ masker) = elk (% {$ info -> {$ iface} {'INET'}})) {$ Res. = Sprintf ("TINET% -15S MASK $ MASKN", $ ADDR ); }; $ Info -> {$ iface} {'ether'} en $ Res. = "Tether". $ Info -> {$ iface} {'ether'}. "N"; $ INFO -> {$ IFACE} {'ScESS'} en $ Res. = "TDESCR". $ INFO -> {$ IFACE} {'DEC'}. "'N"; retourneer $ res; }; Vereisten: · PERL-vereisten: · Perl


NET :: iFconfig :: Wrapper Gerelateerde software