스크립트 :: 도구 상자 스크립트 :: 도구 상자는 일일 비즈니스 스크립트를위한 PERL 프레임 워크입니다.
지금 다운로드

스크립트 :: 도구 상자 순위 및 요약

스크립트 :: 도구 상자 태그

뼈대 Perl 모듈 펄 Perl 프레임 워크 비즈니스 스크립트

스크립트 :: 도구 상자 설명

스크립트 :: 도구 상자는 일일 비즈니스 스크립트를위한 Perl 프레임 워크입니다. 스크립트 :: 도구 상자는 일일 비즈니스 스크립트를위한 Perl 프레임 워크입니다. Synopsis 스크립트 :: 도구 상자 QW (: ALL); 또는 스크립트 :: 도구 상자 QW (열기 로그 종료 테이블 사용 DIR 파일 시스템) $ = 스크립트 :: 도구 상자 -> new (); # # 로그 ( "로그 메시지"); stderr 로그 ( "로그 메시지", 'stderr')에 로그인 # stderr 로그 ( "로그 메시지", 'stdout')에 로그인하십시오. # stdout log ( "로그 메시지", '/ tmp / x')에 로그인하십시오. # / tmp / x 로그 ( "로그 메시지", 새 IO :: 파일 "/ tmp / xxx"로그); # / tmp / xxx 스크립트 :: 도구 상자 -> new ({logdir => {mod => '= s', desc => 'log directory', mid => 1, default => '/ var / log') }}); 로그 ( "로그 메시지"); # /var/log/.log 로그 ( "로그 메시지", 'syslog', 'severity', '태그'); # 로그를 통해 syslogd # # 인쇄 된 서적 인쇄 : # 인쇄 가입 "n", {$ t}; $ t = $ e-> 표 (; $ t = $ e-> 표 (, '|'); $ t = $ e-> 테이블 (, , , ); $ t = $ e-> 테이블 ({ '제목'=> '해시 예', 'head'=> : 11 ', 33.456,'cc '], , ]}); $ t = $ e-> 자동 열 머리 (F1, F2, F3) ','데이터 '=> })] # # 명령 줄 옵션 # $ tb = 스크립트 :: 도구 상자 -> 새 ({file => {mod => '= s', desc => '설명', mid => 1, default => '/ bin / cat '}}); $ file = tb-> getopt ( 'file'); # dutchated, 다음 $ file = tb -> { '파일'}; $ old = tb-> setopt ( 'newfile'); 용법(); # 모든 옵션에 대한 사용 메시지를 인쇄하십시오 # 사용할 수있는 경우 POD 사용량 ( '이것은 사용을위한 추가 텍스트')을 인쇄합니다. # # 디렉토리 처리 # $ ARRREF = DIR ( '/ TMP'); # 모두를 제외하고. 그리고 ... $ arrref = dir ( '/ tmp', '. * patt'); # 모든 일치하는 patt $ arrref = dir ( '/ tmp', '!!. * patt'); # 모두 patt # # 파일 처리 # $ arrref = 파일 ( 'path / to / file'); # array $ arrref = 파일 ( "/ bin / ps |")으로 파일 읽기; # comand stdout을 배열 파일 ( "> path / to / file", '이전 콘텐츠 재 지정')으로 읽습니다. 파일 ( "PATH / to / FILE", '파일 에이 파일 추가'); 파일 ( "경로 / - / 파일", $ ARREF); # 배열 요소 파일 ( "PATH / TO / FILE", $ ARRREF, $ RECSEP); # 배열 요소 추가 파일 ( "경로 / 투 / 파일", $ hashref, $ RECSEP, $ fieldsep); # 키 값 줄 파일 ( "| / bin / cat", "hello world.n")으로 추가하십시오); $ fileHandle = tmpfile (); # 새 임시 파일을 엽니 다 ($ FILEHANDLE) # DESCLEANOS # EXIT (1, "종료 메시지") # returnCode 1, # log () $ fh = open ( "> / tmp / xx")를 통해 종료 메시지 쓰기; # / tmp / xx가있는 io :: file 객체를 반환합니다. 씁니다. 로그 파일 항목이 실패한 경우 로그 파일 항목으로 열립니다. FH = OPEN ( "/ bin / ps"); # io :: File 객체를 반환합니다. 실패한 $ rc = system ( "/ bin / ls") # 시스템 명령을 실행하고 # 로그 파일에 출력을보고합니다. $ 지금 = 지금 (); PRINTF "DAY : % D MON : % D 연도 : % D WAYDST : % d yday : % d isDST : % D 초 : % D 분 : % d 시간 : % d", $ 지금 -> {mday}, $ 지금 -> {Mon}, $ Now -> {eary}, $ Now -> {{wday}, $ Now -> {yday}, $ Now -> {isdst}, $ Now -> {sec}, $ Now-> {min}, $ 지금 -> {시간}; $ Now = Now ( ' "% A, % B % D, % Y"'); # 월요일, 2005 년 10 월 10 일 = head1 추상 모듈은 일상적인 작업을 위해 "스위스 군대 칼"이어야합니다. 주 목표는 명령 줄 처리, 자동 사용 메시지, 신호 캐치 (로깅 포함), 간단한 로깅, 간단한 데이터 서식, 간단한 디렉토리 및 파일 처리입니다. ·이 릴리스의 새로운 매개 변수 ({diff => }) · TEST T03_EXIT 테스트 버그 수정

스크립트 :: 도구 상자 관련 소프트웨어