Perl에서 getopt와 getoptlongs 를 이용한 인자처리C 언어를 이용할 경우 getopt(3)함수를 통해서 실행라인 인자를 철할 수 있다. perl(use Getoptgetopt(oDI, \%opts); # -o, -D, -I 인자를 처리해서 해쉬변수인 opts에 저장한다.getopt(oif#!/usr/bin/perluse Getoptsub ...
perl 함수 인자로 받은 unix time을 9개의 시간요소를 가진 배열로 리턴한다. 이때 시간은 지역시간으로 보정된다.# 0 1 2 3 4 5 6 7 8 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);모든 요소는 숫자이며, C( || $sec || 초 || 0~60 |...
perl 함수 파일을 열기 위해서 사용한다. || < || 읽기 전용 |||| > or w || 쓰기 전용, 파일이 존재한다면 truncate 된다. 파일이 없다면 생성 |||| >> or a || 쓰기, 파일이 존재할경우 추가된다. 파일이 없다면 생성 |||| +< or r+ || 읽기/쓰기 |||| +> or w+ || 읽기,쓰기,생성 파일이 존재하면...
perl 함수 그동안 split가 함수인줄 알고 있었는데, 였다고 한다. 새로운걸 알았다. split 함수는 주어진 대상문자열을 특정한 문자열을 이용해서 분리하여 배열에 저장하는 일을 한다. 분리하기 위한 문자는 단일 문자일수도 있고 문자열 일 수도 있다. 또한 정규표현(my $str = "yundream, joinc, 1974";my @data = sp...
perl 함수 파일의 정보를 읽어온다. 리턴값은 파일의 13가지 정보들이다. 파일이름 혹은 FILEHANDLE, DIRHANDLE 를 모두 사용할 수 있다. 실패할 경우 null 을 리턴한다. 아래와 같이 사용한다.($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$b...
perl 시스템 관리를 하다보면, 하위 디렉토리의 특정 종류의 파일에 대해서 일괄작업을 해야 하는 경우가 있다. 이를테면 크기가 얼마 이상인 파일을 지워야 한다거나, 파일의 날짜를 변경시켜야 한다거나 하는 등등의 일이다. 노가다를 뛰는 방법도 있겠지만 자고로 시스템 관리자의 미덕은 게으름 아니던가. 스크립트 하나 잘 만들어 두면, 한시간 해야 할일을 1분...
24 POSTS HERE
Perl에서 getopt와 getoptlongs 를 이용한 인자처리
Perl에서 getopt와 getoptlongs 를 이용한 인자처리C 언어를 이용할 경우 getopt(3)함수를 통해서 실행라인 인자를 철할 수 있다. perl(use Getoptgetopt(oDI, \%opts); # -o, -D, -I 인자를 처리해서 해쉬변수인 opts에 저장한다.getopt(oif#!/usr/bin/perluse Getoptsub ...
perl 함수 : localtime
perl 함수 인자로 받은 unix time을 9개의 시간요소를 가진 배열로 리턴한다. 이때 시간은 지역시간으로 보정된다.# 0 1 2 3 4 5 6 7 8 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);모든 요소는 숫자이며, C( || $sec || 초 || 0~60 |...
perl 함수 : open
perl 함수 파일을 열기 위해서 사용한다. || < || 읽기 전용 |||| > or w || 쓰기 전용, 파일이 존재한다면 truncate 된다. 파일이 없다면 생성 |||| >> or a || 쓰기, 파일이 존재할경우 추가된다. 파일이 없다면 생성 |||| +< or r+ || 읽기/쓰기 |||| +> or w+ || 읽기,쓰기,생성 파일이 존재하면...
Perl 함수 : opendir
Perl 함수 opendir DIRHANDLER, EXPR이름이 EXPR인 디렉토리를 열고, 디렉토리 핸들러인 DRIHANDLER에 열린자원을 연결시킨다. 이제 readdir( 실패하면 0 성공하면 0이외의 값.인자로 주어진 디렉토리를 열고, 디렉토리에 있는 파일의 목록을 출력한다.#!/usr/bin/perl -w$dirname = $ARGV;opendi...
perl 함수 : split 대상 문자열을 특정한 문자열로 분리하여 배열에 저장
perl 함수 그동안 split가 함수인줄 알고 있었는데, 였다고 한다. 새로운걸 알았다. split 함수는 주어진 대상문자열을 특정한 문자열을 이용해서 분리하여 배열에 저장하는 일을 한다. 분리하기 위한 문자는 단일 문자일수도 있고 문자열 일 수도 있다. 또한 정규표현(my $str = "yundream, joinc, 1974";my @data = sp...
perl 함수 : stat - 파일의 정보를 읽어 온다.
perl 함수 파일의 정보를 읽어온다. 리턴값은 파일의 13가지 정보들이다. 파일이름 혹은 FILEHANDLE, DIRHANDLE 를 모두 사용할 수 있다. 실패할 경우 null 을 리턴한다. 아래와 같이 사용한다.($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$b...
Perl 코드 모음
Perl 코드 모음...
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 ...
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 : 모든 하위 디렉토리의 권한 변경
perl 시스템 관리를 하다보면, 하위 디렉토리의 특정 종류의 파일에 대해서 일괄작업을 해야 하는 경우가 있다. 이를테면 크기가 얼마 이상인 파일을 지워야 한다거나, 파일의 날짜를 변경시켜야 한다거나 하는 등등의 일이다. 노가다를 뛰는 방법도 있겠지만 자고로 시스템 관리자의 미덕은 게으름 아니던가. 스크립트 하나 잘 만들어 두면, 한시간 해야 할일을 1분...