TAG KEYWORD
perl 시스템 관리를 하다보면, 하위 디렉토리의 특정 종류의 파일에 대해서 일괄작업을 해야 하는 경우가 있다. 이를테면 크기가 얼마 이상인 파일을 지워야 한다거나, 파일의 날짜를 변경시켜야 한다거나 하는 등등의 일이다. 노가다를 뛰는 방법도 있겠지만 자고로 시스템 관리자의 미덕은 게으름 아니던가. 스크립트 하나 잘 만들어 두면, 한시간 해야 할일을 1분...
Perl #!/usr/bin/perl$argnum = $#ARGV+1;$PNAME = $ARGV;$PID=$$;# 아규먼트로 PID(# /proc/PID/status 를 이용해서 실행중인 쓰레드 갯수를 얻어온다.sub getThreadNum{ my($PID) = @_; my $PROC = "/proc/$PID/status"; my $thread=""; m...
perl 을 이용한 icmp 가용율 및 상태체크 1. ping(1)를 이용해서 해당 서버의 ICMP( 1. 일정간격으로 값을 측정한다음 RRD(#!/usr/bin/perl$host = $ARGV;open(FD, "ping -c 3 $host -W 1|");$i = 0;$is_reply = 0;$avail = 0;while($line = ){ if ...
Copyrights © - Joinc, All Rights Reserved. Inherited From - Yundream Rebranded By - Joonphil
24 POSTS HERE
perl : 모든 하위 디렉토리의 권한 변경
perl 시스템 관리를 하다보면, 하위 디렉토리의 특정 종류의 파일에 대해서 일괄작업을 해야 하는 경우가 있다. 이를테면 크기가 얼마 이상인 파일을 지워야 한다거나, 파일의 날짜를 변경시켜야 한다거나 하는 등등의 일이다. 노가다를 뛰는 방법도 있겠지만 자고로 시스템 관리자의 미덕은 게으름 아니던가. 스크립트 하나 잘 만들어 두면, 한시간 해야 할일을 1분...
Perl : 프로세스 상태정보 얻어오기
Perl #!/usr/bin/perl$argnum = $#ARGV+1;$PNAME = $ARGV;$PID=$$;# 아규먼트로 PID(# /proc/PID/status 를 이용해서 실행중인 쓰레드 갯수를 얻어온다.sub getThreadNum{ my($PID) = @_; my $PROC = "/proc/$PID/status"; my $thread=""; m...
perl 을 이용한 icmp 가용율 및 상태체크
perl 을 이용한 icmp 가용율 및 상태체크 1. ping(1)를 이용해서 해당 서버의 ICMP( 1. 일정간격으로 값을 측정한다음 RRD(#!/usr/bin/perl$host = $ARGV;open(FD, "ping -c 3 $host -W 1|");$i = 0;$is_reply = 0;$avail = 0;while($line =){ if ...