NET :: ifconfig :: sarıcı

NET :: IFCONFIG :: Wrapper, ağ arayüzlerini FreeBSD ve Linux OSES'te yapılandırmak için birleşik bir yol sağlayan bir Perl modülüdür.
Şimdi İndirin

NET :: ifconfig :: sarıcı Sıralama ve Özet

Reklamcılık

  • Rating:
  • Lisans:
  • Perl Artistic License
  • Fiyat:
  • FREE
  • Yayıncı adı:
  • Daniel Podolsky
  • yayıncı web sitesi:
  • http://search.cpan.org/~tpaba/Net-Socket-NonBlock-0.15/NonBlock.pm

NET :: ifconfig :: sarıcı Etiketler


NET :: ifconfig :: sarıcı Açıklama

NET :: IFCONFIG :: Wrapper, FreeBSD ve Linux OSES'deki ağ arayüzlerini yapılandırmak için birleşik bir yol sağlayan bir Perl modülüdür. NET :: IFCONFIG :: Wrapper, ağ arayüzlerini FreeBSD, OpenBSD, Solaris, Linux, OS X ve Winnt (Win2K'dan) yapılandırmak için birleşik bir yol sağlayan bir Perl modülüdür .Synopsis #! / USR / Yerel / Bin / Perl -w # uni-ifconfig.pl # Birleşik Ifconfig komutu. # FreeBSD, OpenBSD, Solaris, Linux, OS X, Winnt (Win2K'dan) aynı şekilde çalışır. # Not: Net :: ifconfig :: Sarıcı Sınırlamaları 'inet' ve 'Aşağı' komutları # Winnt üzerinde çalışmıyor. Tabii ki +/- Alias çalışıyor. sıkı kullanmak; Net :: ifconfig :: Wrapper kullanın; $ USAGE = {$ argv } ya da ölmek "Arabirim '$ argv ' bilinmezlik"; if (! Tanımlanmış ($ argv )) {ifaceinfo ($ info, $ argv ); 0 çıkın; } $ cmdline = katılın ('', @argv); $ Sonuç = UNDEF; Eğer ($ cmdline = ~ m / as * ( +) S + Downs * z / i) {$ Sonuç = NET :: IFCONFIG :: Wrapper :: ifconfig ('aşağı', 1 $ '' , ''); } elsif ($ cmdline = ~ m / as * ( +) s + inets + (d {1,3} (?:. d {1,3}) {3}) S + maskeleri + (d {1,3} (?:. D {1,3}) {3}) s * z / i) {3 sonuç = NET :: ifconfig :: wrapper :: ifconfig ('inet', 1, $ 2, 3 $ ); } elsif ($ cmdline = ~ m / as * ( +) s + inets + (d {1,3} (?:. d {1,3}) {3}) S + maskeleri + (d {1,3} (?:. D {1,3}) {3}) S ++? Aliass * z / i) {$ Sonuç = Net :: ifconfig :: Wrapper :: ifconfig ('+ takma ad', $ 1, 2, 3 $); } elsif ($ cmdline = m / as * ( +) s + inets + (d {1,3} (?:. D {1,3}) {3}) S + (:? Maskeler + (D {1,3} (?:. d {1,3}) {3}) s +)? ', 1, $ 2,' '); } else {Die $ kullanımı; }; $ Sonuç veya Die $ @; 0 çıkın; alt ifaceinfo {benim ($ info, $ iface) = @_; $ res = "$ iface: t". ($ bilgi -> {$ iface} {'status'}? 'Yukarı': 'aşağı'). "N"; süre ($ addr, $ maske) = her (% {$ bilgi -> {$ iface} {'inet'}})) {$ res. = sprintf ("tinet% -15s maskesi $ maskn", $ addr ); }; $ İnfo -> {$ iface} {'ether'} ve $ res. = "Tether". $ Bilgi -> {$ iface} {'ether'}. "N"; $ Bilgi -> {$ iface} {'desc'} ve $ res. = "Tdescr '". $ Bilgi -> {$ iface} {' desc '}. "' N"; REET RES; }; Gereksinimler: · Perl Gereksinimleri: · Perl


NET :: ifconfig :: sarıcı İlgili Yazılım

Hakkımızda