화이트스페이스 제거

화이트스페이스 제거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 구현

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 코드 모음

Perl 코드 모음...

Perl - Mysql Status 얻어오기

Perl - Mysql Status 얻어오기mysqladmin status의 정보를 읽어와서 출력한다. #!/usr/bin/perl# $mysqladmin status 의 결과물 # Uptime# Slow queries# Open tables$argnum = $#ARGV+1;if ($argnum < 3 ){ print "Usage exit(1);}my ...

Perl을 이용한 Mysql Query 실행

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으로 측정하는 웹페이지 응답시간

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

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 : 날짜계산하기

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

None title

---- 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 버젼

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