Net :: ifconfig :: wrapper NET :: IFCONFIG :: Wrapper est un module PERL qui fournit un moyen unifié de configurer des interfaces réseau sur FreeBSD et Linux OSES.
Télécharger maintenant

Net :: ifconfig :: wrapper Classement & Résumé

Net :: ifconfig :: wrapper Mots clés

réseau Module Perl configurer interfaces Configurer les interfaces réseau wrapper d'interface de réseau

Net :: ifconfig :: wrapper La description

NET :: IFCONFIG :: WRAPPER est un module PERL qui fournit un moyen unifié de configurer des interfaces réseau sur FreeBSD et OSES Linux. Net :: ifconfig :: Wrapper est un module Perl qui fournit un moyen unifié de configurer des interfaces réseau sur FreeBSD, OpenBSD, Solaris, Linux, OS X et Winnt (à partir de Win2k) .Synopsis #! / USR / US / PERL / BIN / PERL -w # uni-ifconfig.pl # la commande ifconfig unifiée. # Fonctionne de la même manière sur FreeBSD, OpenBSD, Solaris, Linux, OS X, Winnt (de Win2K). # Remarque: Due de Net :: IFCONFIG :: Les commandes d'emballage «Inet» et «DOWN» # ne fonctionnent pas sur Winnt. +/- Les alias travaillent, bien sûr. utiliser strict; Utiliser Net :: ifconfig :: wrapper; mon $ usage = {$ argv } ou une interface "$ argv 'est inconnu"; si (! défini ($ argv )) {impression ifaceinfo ($ info, $ argv ); sortie 0; } My $ cmdline = rejoindre ('', @Argv); mon $ résultat = undef; si ($ cmdline = ~ m / as * ( +) s + downs * z / i) {$ résultat = net :: ifconfig :: wrapper :: ifconfig ("bas", $ 1, '' , ''); } elsif ($ cmdline = ~ m / as * ( +) s + inets + (d {1,3} (?:. D. D {1,3}) {3}) S + Masques + (D {1,3} (?: ); } elsif ($ cmdline = ~ m / as * ( +) s + inets + (d {1,3} (?:. D. D {1,3}) {3}) S + Masques + (D {1,3} (?:. D {1,3}) {3}) S ++? Alias * z / i) {$ résultat = net :: ifconfig :: wrapper :: ifconfig ('+ alias', 1 $, 2 $, 3 $); } elsifsi ($ cmdline = ~ m / as * ( +) s + inets + (d {1,3} (?:. D. D {1,3}) {3}) S + (:? masques + (D {1,3} (?: ', $ 1, 2 $,' '); } else {die $ usage; }; $ Résultat ou mourir $ @; sortie 0; Sub Ifaceinfo {My ($ info, $ iface) = @_; mon $ res = "$ iface: t". ($ info -> {$ iface} {'statut'}? 'up': 'baisse'). "N"; tandis que (mon ($ addr, $ masque) = chacun (% {$ info -> {$ iface} {'inet'}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}) ); }; $ Info -> {$ iface} {'éther'} et $ res. = "Tether". $ Info -> {$ iface}}. "N"; $ Info -> {$ iface} {'cr '} et $ res. = "Tdescr'". $ Info -> {$ iface} {"n"; retour $ RES; }; Exigences: · Perl Exigences: · Perl

Net :: ifconfig :: wrapper Logiciels associés