NET :: ifconfig :: Wrapper

NET :: ifconfig :: wrapper adalah modul Perl yang menyediakan cara terpadu untuk mengkonfigurasi antarmuka jaringan pada OS FreeBSD dan Linux.
Unduh sekarang

NET :: ifconfig :: Wrapper Peringkat & Ringkasan

Iklan

  • Rating:
  • Lisensi:
  • Perl Artistic License
  • Harga:
  • FREE
  • Nama Penerbit:
  • Daniel Podolsky
  • Situs web penerbit:
  • http://search.cpan.org/~tpaba/Net-Socket-NonBlock-0.15/NonBlock.pm

NET :: ifconfig :: Wrapper Tag


NET :: ifconfig :: Wrapper Keterangan

NET :: ifconfig :: Wrapper adalah modul Perl yang menyediakan cara terpadu untuk mengkonfigurasi antarmuka jaringan pada OS FreeBSD dan Linux. NET :: ifconfig :: Wrapper adalah modul Perl yang menyediakan cara terpadu untuk mengkonfigurasi antarmuka jaringan pada FreeBSD, OpenBSD, Solaris, Linux, OS X, dan WinNT (dari Win2K) .Synopsis #! / USR / Perl / Bin / Bin / Perl) -W # unuifconfig.pl # perintah ifconfig terpadu. # Bekerja dengan cara yang sama pada FreeBSD, OpenBSD, Solaris, Linux, OS X, WinNT (dari Win2K). # Catatan: Karena net :: ifconfig :: pembatasan pembungkus 'inet' dan perintah 'turun' # tidak berfungsi pada winnt. +/- alias bekerja, tentu saja. gunakan ketat; Gunakan Net :: ifconfig :: wrapper; $ US $ = {$ argv } atau mati "antarmuka '$ argv ' tidak diketahui"; Jika (! Didefinisikan ($ ARGV )) {Print IfaceInfo ($ info, $ ARGV ); keluar 0; } $ cmdline saya = bergabung ('', @argv); $ hasil saya = UNDEF; Jika ($ cmdline = ~ m / as * ( +) S + downs * z / i) {$ result = net :: ifconfig :: wrapper :: ifconfig ('down', $ 1, '' , ''); } elsif ($ cmdline = ~ m / as * ( +) s + inets + (d {1,3} (? :. d {1,3}) {3}) s + mask + (d}) {1,3} (? :. d {1,3}) {3}) s * z / i) {$ result = net :: ifconfig :: wrapper :: ifconfig ('inet', $ 1, $ 2, $ 2, $ 2 ); } elsif ($ cmdline = ~ m / as * ( +) s + inets + (d {1,3} (? :. d {1,3}) {3}) s + mask + (d}) {1,3} (? :. d {1,3}) {3}) S ++? Alias * z / i) {$ result = net :: ifconfig :: wrapper :: ifconfig ('+ alias', $ 1, $ 1, $ 1, $ 1, $ 2, $ 3); } elsif ($ cmdline = ~ m / as * ( +) s + inets + (d {1,3} (? :. d {1,3}) {3}) s + (:? Masker + (D {1,3} (? :. d {1,3}) {3}) S +)? - aliass * z / i) {$ result = net :: ifconfig :: wrapper :: alias ('- alias ', $ 1, $ 2,' '); } else {die $ penggunaan; }; $ Hasil atau die $ @; keluar 0; sub iFaceInfo {My ($ info, $ iface) = @_; $ res = "$ iface: t". ($ info -> {$ iFace} {'Status'}? 'Up': 'Down'). "N"; While (My ($ Addr, $ mask) = masing-masing (% {$ info -> {$ iFace} {'inet'}})) {$ res. = sprintf ("Tinet% -15s masker $ maskn", $ ); }; $ Info -> {$ iFace} {'eter'} dan $ res. = "Tether". $ Info -> {$ iFace} {'eter'}. " $ Info -> {$ iface} { 'descr'} dan $ Res = "tdescr '" $ Info -> {$ iface}. { 'Descr'}. "' N".; return $ Res; }; Persyaratan: · Perl Kebutuhan: · Perl.


NET :: ifconfig :: Wrapper Perangkat Lunak Terkait

Tentang kami