Perl에서 getopt를 이용한 인자처리C 언어를 이용할 경우 의 그것과 비슷하다. use Getoptgetopt(oDI, \%opts); # -o, -D, -I 인자를 처리해서 해쉬변수인 opts에 저장한다.getopt(oif#!/usr/bin/perluse Getoptsub myfunc{ $file = shift; print "file name }s...
perl 코드 다수의 서버에서 발생하는 어플리케이션 이벤트를 통합관리해야 하는 필요가 생겼다. 여러가지 방법이 있겠으나 역시 syslog(일종의 분산환경으로 원격지의 syslog 수집서버로 log를 전달해야 하기 때문에, 각각의 syslog 전송서버에 대해서 다음과 같은 환경을 만들어줘야 했다. 그전에 log 시스템 환경부터 syslog 수집서버 IP ...
perl로 tail 구현tail(1) -f 과 같은 일을 하는 perl 코드 #!/usr/bin/perlopen(FD, "log.txt") || die "cant open file";for (;;){ for($curpos tell(FD)) { print $line; } sleep(1); seek(FD, $curpos, 0);}...
file open 및 string 수정moniwiki의 wiki파일을 읽어서 색인 파일을 만드는 간단한 프로그램입니다.모니위키의 파일 형식은 아래와 같습니다. URI encoding을 하고나서 %를 _로 치환을 해서 저장을 합니다. Site_2fLinux_2fProgramming위 파일을 읽어서 wiki 제목 문자열을 가져온다음에 해당 정보를 파일에 저장...
Cpu 사용율 정보 가져오기 - Ruby리눅스는 proc(CPU 사용율은 /proc/stat에 저장됩니다. 이 정보를 이용해서 모든 core의 user, sys, idle, iowait 사용율을 계산할 수 있습니다. # cat /proc/statcpu 613212 1060 110282 2417014 43484 60 1260 0 0 0cpu0 294570 ...
Perl에서 데몬 프로세스 만들기Perl을 이용해서 네트워크 서버 프로그램을 만들어야될 일이 생겼다. 그동안 서버프로그램은 C(다음은 을 이용해서 daemon(#!/usr/bin/perluse POSIX setsid;use Cwd chdir;sub daemon_init{ my $pid = fork; exit 0 if $pid; exit 1 if not d...
Real-Time Signal과 이벤트기반 네트워킹 기술에 대한 소개 이 문서는 일부 2.6의 내용을 포함하고 있지만 전체적으로 커널 2.4를 기준으로 작성되었다. 최신 커널의 변경사항을 조사해서 수정할 필요가 있다. 몇번에 걸쳐서 RTS를 다루었는데 너무 피상적인 내용만 다룬것 같다. 아무래도 제대로 사용하기 위해서는 실제로 서비스 가능한 간단한 인터...
387 POSTS HERE
perl : 날짜계산하기
perl 날짜계산과 관련된 코드들을 정리해볼 생각임#!/usr/bin/perl($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);printf "%4d-%02d-%02d %02d$year+1900,$mon+1,$mday,$hour,$min,$sec;...
Perl에서 getopt를 이용한 인자처리
Perl에서 getopt를 이용한 인자처리C 언어를 이용할 경우 의 그것과 비슷하다. use Getoptgetopt(oDI, \%opts); # -o, -D, -I 인자를 처리해서 해쉬변수인 opts에 저장한다.getopt(oif#!/usr/bin/perluse Getoptsub myfunc{ $file = shift; print "file name }s...
perl 코드 : syslog 전송
perl 코드 다수의 서버에서 발생하는 어플리케이션 이벤트를 통합관리해야 하는 필요가 생겼다. 여러가지 방법이 있겠으나 역시 syslog(일종의 분산환경으로 원격지의 syslog 수집서버로 log를 전달해야 하기 때문에, 각각의 syslog 전송서버에 대해서 다음과 같은 환경을 만들어줘야 했다. 그전에 log 시스템 환경부터 syslog 수집서버 IP ...
perl로 tail 구현
perl로 tail 구현tail(1) -f 과 같은 일을 하는 perl 코드 #!/usr/bin/perlopen(FD, "log.txt") || die "cant open file";for (;;){ for($curpos tell(FD)) { print $line; } sleep(1); seek(FD, $curpos, 0);}...
file open 및 string 수정
file open 및 string 수정moniwiki의 wiki파일을 읽어서 색인 파일을 만드는 간단한 프로그램입니다.모니위키의 파일 형식은 아래와 같습니다. URI encoding을 하고나서 %를 _로 치환을 해서 저장을 합니다. Site_2fLinux_2fProgramming위 파일을 읽어서 wiki 제목 문자열을 가져온다음에 해당 정보를 파일에 저장...
Cpu 사용율 정보 가져오기 - Ruby
Cpu 사용율 정보 가져오기 - Ruby리눅스는 proc(CPU 사용율은 /proc/stat에 저장됩니다. 이 정보를 이용해서 모든 core의 user, sys, idle, iowait 사용율을 계산할 수 있습니다. # cat /proc/statcpu 613212 1060 110282 2417014 43484 60 1260 0 0 0cpu0 294570 ...
Perl에서 데몬 프로세스 만들기
Perl에서 데몬 프로세스 만들기Perl을 이용해서 네트워크 서버 프로그램을 만들어야될 일이 생겼다. 그동안 서버프로그램은 C(다음은 을 이용해서 daemon(#!/usr/bin/perluse POSIX setsid;use Cwd chdir;sub daemon_init{ my $pid = fork; exit 0 if $pid; exit 1 if not d...
Real-Time Signal 소개 1
Real-Time Signal 소개 1...
Real-Time Signal 소개 2
Real-Time Signal 소개 2...
Real-Time Signal과 이벤트기반 네트워킹 기술에 대한 소개
Real-Time Signal과 이벤트기반 네트워킹 기술에 대한 소개 이 문서는 일부 2.6의 내용을 포함하고 있지만 전체적으로 커널 2.4를 기준으로 작성되었다. 최신 커널의 변경사항을 조사해서 수정할 필요가 있다. 몇번에 걸쳐서 RTS를 다루었는데 너무 피상적인 내용만 다룬것 같다. 아무래도 제대로 사용하기 위해서는 실제로 서비스 가능한 간단한 인터...