net :: ifconfig :: 래퍼

NET :: IFCONFIG :: Wrapper는 FreeBSD 및 Linux OS에서 네트워크 인터페이스를 구성하는 통합 된 방법을 제공하는 Perl 모듈입니다.
지금 다운로드

net :: ifconfig :: 래퍼 순위 및 요약

광고

  • Rating:
  • 특허:
  • Perl Artistic License
  • 가격:
  • FREE
  • 게시자 이름:
  • Daniel Podolsky
  • 게시자 웹사이트:
  • http://search.cpan.org/~tpaba/Net-Socket-NonBlock-0.15/NonBlock.pm

net :: ifconfig :: 래퍼 태그


net :: ifconfig :: 래퍼 설명

net :: ifconfig :: wrapper는 FreeBSD 및 Linux OS에서 네트워크 인터페이스를 구성하는 통합 된 방법을 제공하는 Perl 모듈입니다. net :: ifconfig :: wrapper는 freebsd, openbsd, solaris, linux, os x 및 winnt (win2k)에서 네트워크 인터페이스를 구성하는 통합 된 방법을 제공하는 perl 모듈입니다. 식 노프 #! / usr / local / bin / perl -w # uni-ifconfig.pl # 통합 ifconfig 명령입니다. # FreeBSD, OpenBSD, Solaris, Linux, OS X, Winnt (Win2K에서)에서 동일한 방식으로 작동합니다. # 참고 : net :: ifconfig :: 랩퍼 제한 'inet'및 'down'명령 #은 Winnt에서 작동하지 않습니다. 물론 +/- 별칭이 작동하고 있습니다. 엄격한 사용; net :: ifconfig :: wrapper; MY $ USAGE = {$ ARGV } 또는 "인터페이스 '$ ARGV '는 알려지지 않았습니다"; if (! 정의 ($ argv )) {인쇄 ifaceinfo ($ 정보, $ argv ); 종료 0; } My $ cmdline = JOIN ( '', @ARGV); 내 $ result = undef; if ($ cmdline = ~ m / as * ( +) s + downs * z / i) {$ RETETAM NET :: IFCONFIG :: WRAPPER :: IFCONFIG ( '다운', $ 1, '' , ''); } ELSIF ($ cmdline = m / as * ( +) s + inets + (d {1,3} (? : d {1,3}) {3}) s + 마스크 + (d {1,3} (? :. D {1,3}) {3}) s * z / i) {$ result = net :: ifconfig :: 래퍼 :: ifconfig ( 'inet', $ 1, $ 2, $ 3 ); } ELSIF ($ cmdline = m / as * ( +) s + inets + (d {1,3} (? : d {1,3}) {3}) s + 마스크 + (d {1,3} (? :. d {1,3}) {3}) s ++? aliass * z / i) {$ result = net :: ifconfig :: wrapper :: ifconfig ( '+ 별칭', $ 1, $ 2, $ 3); } ELSIF ($ cmdline = m / as * ( +) s + inets + (d {1,3} (? : d {1,3}) {3}) s + (:? masks + (d {1,3} (? : d} {1,3}) {3}) s +)? - aliass * z / i) {$ result = net :: ifconfig :: wrapper :: ifconfig ( '별칭 ', $ 1, $ 2,' '); } else {Die $ 사용법; }; $ 결과 또는 DIE @ @; 종료 0; sub ifaceInfo {my ($ 정보, $ iface) = @_; MY $ RES = "$ IFACE : T". ($ INFO -> {$ IFACE} { 'Status'}? 'up': '다운'). "n"; while (my ($ addr, $ mask) = 각 (% {$ info-> {$ IFACE} { 'inet'inet '}}) {$ res. = sprintf ( "Tinet % -15S Mask $ Maskn", $ addr) ); }; $ info -> {$ IFACE} { 'Ether'} 및 $ res. = "tether". $ info -> {$ IFACE} { 'Ether'}. "n"; $ info -> {$ IFACE} { 'DESCRATE} 및 $ RES. = "TDESCR". $ info -> {$ IFACE} {'DESCRATE ";"n "; 반환 $ res; }; 요구 사항 : · Perl 요구 사항 : · Perl.


net :: ifconfig :: 래퍼 관련 소프트웨어

회사 소개