NET :: ifconfig :: wrapper

NET :: IFCONFIG :: Wrapper è un modulo Perl che fornisce un modo unificato per configurare le interfacce di rete su OSE di FreeBSD e Linux.
Scarica ora

NET :: ifconfig :: wrapper Classifica e riepilogo

Annuncio pubblicitario

  • Rating:
  • Licenza:
  • Perl Artistic License
  • Prezzo:
  • FREE
  • Nome editore:
  • Daniel Podolsky
  • Sito web dell'editore:
  • http://search.cpan.org/~tpaba/Net-Socket-NonBlock-0.15/NonBlock.pm

NET :: ifconfig :: wrapper Tag


NET :: ifconfig :: wrapper Descrizione

NET :: IFCONFIG :: Wrapper è un modulo Perl che fornisce un modo unificato per configurare le interfacce di rete su FreeBSD e Linux OSES. NET :: IFCONFIG :: Wrapper è un modulo Perl che fornisce un modo unificato per configurare le interfacce di rete su FreeBSD, OpenBSD, Solaris, Linux, OS X e Winnt (da Win2K) .synopsis #! / Usr / locale / bin / perl -w # unifconfig.pl # il comando unificato ifconfig. # Funziona allo stesso modo su FreeBSD, OpenBSD, Solaris, Linux, OS X, Winnt (da Win2K). # Nota: DOVUTO DELLA NETTA :: IFCONFIG :: I limiti del wrapper 'INET' e 'DOWN' I comandi # non funzionano su Winnt. +/- Alias stanno lavorando, ovviamente. usare rigoroso; Usa net :: ifconfig :: wrapper; My $ USAge = {$ ARGV } o Die "Interfaccia" $ argv 'è sconosciuto "; se (! Definito ($ ARGV )) {Stampa IFACEINFO ($ info, $ argv ); uscita 0; } My $ cmdline = join ('', @argv); il mio risultato $ = undef; Se ($ cmdline = ~ m / come * ( +) s + downs * z / i) {$ Risultato = net :: ifconfig :: wrapper :: ifconfig ('Down', $ 1 '' ' "'); } ELSIF ($ cmdline = ~ m / As * ( +) s + inet + (D {1,3} (?:. D {1,3}) {3}) S + Masks + (D {1,3} (?:. D {1,3}) {3}) s * z / i) {$ Risultato = net :: ifconfig :: wrapper :: ifconfig ('inet', $ 1, $ 2, $ 3 ); } ELSIF ($ cmdline = ~ m / As * ( +) s + inet + (D {1,3} (?:. D {1,3}) {3}) S + Masks + (D {1,3} (?:. D {1,3}) {3}) s ++? Alias * z / i) {$ Risultato = net :: ifconfig :: wrapper :: ifconfig ('+ alias', $ 1, $ 2, $ 3); } ELSIF ($ cmdline = ~ m / As * ( +) s + inet + (D {1,3} (?:. D {1,3}) {3}) s + (:? Maschere + (D {1,3} (?:. D {1,3}) {3}) s +)? - Alias * z / i) {$ Risultato = net :: ifconfig :: wrapper :: ifconfig ('- alias ', $ 1, $ 2', ''); } else {Die $ utilizzo; }; $ Risultato o morire $ @; uscita 0; SUB IFACEINFO {MY ($ INFO, $ IFACE) = @_; My $ RES = "$ IFACE: T". ($ info -> {$ IFACE} {'Stato'}? 'UP': 'Down'). "N"; while (my ($ addr, $ maschera) = ciascuna (% {$ info -> {$ IFACE} {'}}}})) {$ res. = Sprintf ("Tinet% -15s Mask $ Maskn", $ Addr ); }; $ Info -> {$ IFACE} {'Ether'} e $ res. = "Tether". $ Info -> {$ IFACE} {'Ether'}. "N"; $ Info -> {$ IFACE} {'DESCR'} e $ RES. = "TDESCR '". $ INFO -> {$ IFACE} {' DESCR '}. "' N"; restituire $ res; }; Requisiti: · Requisiti perl: · Perl.


NET :: ifconfig :: wrapper Software correlato

Chi siamo