perl 함수 파일의 정보를 읽어온다. 리턴값은 파일의 13가지 정보들이다. 파일이름 혹은 FILEHANDLE, DIRHANDLE 를 모두 사용할 수 있다. 실패할 경우 null 을 리턴한다. 아래와 같이 사용한다.($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$b...
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로 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은 trim 내장함수를 지원하지 않는다. 이 함수는 String의 처음과 끝에 있는 white space를 제거한다.sub trim($){ my $string = shift; $string =~ s/^\s+//; $string =~ s/\s+$//; return $string;}#!/usr/bin/perl$string = "\tH...
perl shift 함수의 사용 perl의 shift() 함수에 대해서 좀 자세히 알아봐야 할 것 같아서..shift()는 perl의 배열관련 함수중 하나로, 배열( @myNames = (yun, dream, ida); $firstName = shift(@myNames);#!/usr/bin/perl@array = (1..5);while ($element ...
Perl SNMP 모듈 설치C(설치는 간단했다. 예전 같으면 CPAN에서 모듈을 다운로드 받은다음 컴파일 해서 설치했겠지만 너무 귀찮아서 그냥 ubuntu(그 전에 snmp(설치하고 나서 perl(#!/usr/bin/perluse strict;use Netmy ($session, $error) = Net -hostname => shift || localh...
24 POSTS HERE
perl 함수 : stat - 파일의 정보를 읽어 온다.
perl 함수 파일의 정보를 읽어온다. 리턴값은 파일의 13가지 정보들이다. 파일이름 혹은 FILEHANDLE, DIRHANDLE 를 모두 사용할 수 있다. 실패할 경우 null 을 리턴한다. 아래와 같이 사용한다.($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$b...
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 함수 : split 대상 문자열을 특정한 문자열로 분리하여 배열에 저장
perl 함수 그동안 split가 함수인줄 알고 있었는데, 였다고 한다. 새로운걸 알았다. split 함수는 주어진 대상문자열을 특정한 문자열을 이용해서 분리하여 배열에 저장하는 일을 한다. 분리하기 위한 문자는 단일 문자일수도 있고 문자열 일 수도 있다. 또한 정규표현(my $str = "yundream, joinc, 1974";my @data = sp...
Perl 함수 : opendir
Perl 함수 opendir DIRHANDLER, EXPR이름이 EXPR인 디렉토리를 열고, 디렉토리 핸들러인 DRIHANDLER에 열린자원을 연결시킨다. 이제 readdir( 실패하면 0 성공하면 0이외의 값.인자로 주어진 디렉토리를 열고, 디렉토리에 있는 파일의 목록을 출력한다.#!/usr/bin/perl -w$dirname = $ARGV;opendi...
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은 trim 내장함수를 지원하지 않는다. 이 함수는 String의 처음과 끝에 있는 white space를 제거한다.sub trim($){ my $string = shift; $string =~ s/^\s+//; $string =~ s/\s+$//; return $string;}#!/usr/bin/perl$string = "\tH...
perl shift 함수의 사용
perl shift 함수의 사용 perl의 shift() 함수에 대해서 좀 자세히 알아봐야 할 것 같아서..shift()는 perl의 배열관련 함수중 하나로, 배열( @myNames = (yun, dream, ida); $firstName = shift(@myNames);#!/usr/bin/perl@array = (1..5);while ($element ...
Perl SNMP 모듈 설치
Perl SNMP 모듈 설치C(설치는 간단했다. 예전 같으면 CPAN에서 모듈을 다운로드 받은다음 컴파일 해서 설치했겠지만 너무 귀찮아서 그냥 ubuntu(그 전에 snmp(설치하고 나서 perl(#!/usr/bin/perluse strict;use Netmy ($session, $error) = Net -hostname => shift || localh...