Basic Section

화이트스페이스 제거Perl은 trim 내장함수를 지원하지 않는다. 이 함수는 String의 처음과 끝에 있는 white space를 제거한다.sub trim($){ my $string = shift; $string =~ s/^\s+//; $string =~ s/\s+$//; return $string;}#!/usr/bin/perl$string = "\tH...

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);}...

perl 코드 다수의 서버에서 발생하는 어플리케이션 이벤트를 통합관리해야 하는 필요가 생겼다. 여러가지 방법이 있겠으나 역시 syslog(일종의 분산환경으로 원격지의 syslog 수집서버로 log를 전달해야 하기 때문에, 각각의 syslog 전송서버에 대해서 다음과 같은 환경을 만들어줘야 했다. 그전에 log 시스템 환경부터 syslog 수집서버 IP ...

Perl을 이용한 Mysql Query 실행Perl의 Mysql(#!/usr/bin/perluse Mysql;$argnum = $#ARGV+1;if ($argnum < 5){ print "Usage exit(1);}$DBHOST=$ARGV;$DBNAME=$ARGV;$DBUSER=$ARGV;$DBPASS=$ARGV;$query=$ARGV;$DB=Mysql...

Perl과 wget으로 측정하는 웹페이지 응답시간wget(1)을 이용해서 웹페이지 응답시간을 측정하는 간단한 프로그램입니다. 이 프로그램은 zenoss( -p 옵션을 이용하면, 페이지에 포함된, 이미지, 사운드 객체들까지 모두 읽어오게 된다. wget 의 표준에러( wget 메시지를 분석하기 위해서, 간단한 정규표현( gettimeofday 함수를 이용해...

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 날짜계산과 관련된 코드들을 정리해볼 생각임#!/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;...

---- 1. chunkdecode 1. chunkencoding 된것을 디코딩한다 1. 1. Version 0.1 1. 2004/12/27 ----Transfer-Encoding위와같이 엔코딩된 바디의 데이터를 디코딩 한다.#!/usr/bin/perluse Socket;sub parseURL{ my ($url)=@_; return $url=~m/(ht...

atoi perl 버젼C에서 문자 숫자를 int형으로 변경하기 위해서 사용하는 atoi(3)함수의 perl버젼입니다. 인터넷 돌아다니다가 주워논걸 올립니다. $str = "12345";$num = atoi($str);sub atoi{ my $num; foreach my $d (split(//, shift())) { $num = $num 10 + $d; }...

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 ...