NET :: IFCONFIG :: WRPPER NET :: IFCONFIG :: Wrapper es un módulo PERL que proporciona una forma unificada de configurar las interfaces de red en FreeBSD y Linux Oses.
Descargar ahora

NET :: IFCONFIG :: WRPPER Clasificación y resumen

NET :: IFCONFIG :: WRPPER Etiquetas

red Módulo perl configurar interfaces configurar las interfaces de red Transporte de interfaces de red

NET :: IFCONFIG :: WRPPER Descripción

NET :: IFCONFIG :: Wrapper es un módulo PERL que proporciona una forma unificada de configurar las interfaces de red en FreeBSD y Linux Oses. NET :: IFCONFIG :: Wrapper es un módulo Perl que proporciona una forma unificada para configurar las interfaces de red en FreeBSD, OpenBSD, Solaris, Linux, OS X y Winnt (de Win2K) .synopsis #! / Usr / local / bin / perl -w # uni-i-cconfig.pl # El comando unificado ifconfig. # Funciona de la misma manera en FreeBSD, OpenBSD, Solaris, Linux, OS X, Winnt (de Win2k). Nota: Nota: Debido de la red :: IFCONFIG :: Limitaciones de envoltura 'Innet' y 'Down' Los comandos # no están trabajando en Winnt. +/- Alias ​​están funcionando, por supuesto. usar estricto; UTILICE NET :: IFCONFIG :: WRPPER; My $ Uso = {$ ARGV } o Die "Interface '$ ARGV ' es unknownn"; Si (! definido ($ ARGV )) {Imprimir IFACEINFO ($ INFO, $ ARGV ); Salida 0; } My $ CMDLINE = Únase a ('', @argv); My $ resultado = UNDEF; Si ($ cmdline = ~ m / como * ( +) s + downs * z / i) {$ resultado = net :: ifconfig :: wrapper :: ifconfig ('abajo', $ 1 '' ''); } Elsif ($ cmdline = ~ m / a * ( +) s + inets + (d {1,3} (?:. D {1,3}) {3}) S + Masks + (D {1,3} (?:. D {1,3}) {3}) S * Z / I) {$ resultado = net :: ifconfig :: wrapper :: ifconfig ('inet', $ 1, $ 2, $ 3 ) } Elsif ($ cmdline = ~ m / a * ( +) s + inets + (d {1,3} (?:. D {1,3}) {3}) S + Masks + (D {1,3} (?:. D {1,3}) {3}) s ++? Aliass * z / i) {$ resultado = net :: ifconfig :: wrapper :: ifconfig ('+ alias', $ 1, $ 2, $ 3); } Elsif ($ cmdline = ~ m / a * ( +) s + inets + (d {1,3} (?:. D {1,3}) {3}) s + (:? máscaras + (D {1,3} (?:. D {1,3}) {3}) s +)? - aliass * z / i) {$ resultado = net :: ifconfig :: wrapper :: ifconfig ('- alias ', $ 1, $ 2,' '); } else {die $ uso; }; $ Resultado o die $ @; Salida 0; subfaceinfo {my ($ info, $ ifeace) = @_; My $ res = "$ IFACE: T". ($ info -> {$ iface} {'estado'}? 'Up': 'Abajo'). "N"; Mientras (mi ($ Addr, $ máscara) = cada uno (% {$ info ->> {$ iface} {'inet'}})) {$ res. = sprintf ("Tinenet% -15s máscara $ mascarkn", $ addr ) }; $ Info -> {$ iface} {'éter'} y $ res. = "Tether". $ Info -> {$ iface} {'éter'}. "N"; $ Info -> {$ iface} {'descrip'} y $ res. = "Tdescr '". $ Info -> {$ iface} {' descrip '}. "' N"; Devuelve $ res; }; Requisitos: · Requisitos de Perl: · Perl

NET :: IFCONFIG :: WRPPER Software relacionado