자주쓰는 Perl 구문들..

시작

#!/usr/bin/perl -w


STDIN 입력은 간단히 <>

$input = <>;


입력에서 마지막 \n 없애기

chomp($input);


문자열을 나눠서 리스트로 만들기

@list = split(/구분자/, 문자열);


파일을 쓰기 모드로 열기

open(HANDLE, ‘>filename’);

그냥은 filename, 추가 쓰기는 >>


파일에 뭘 쓰고 싶을 때

print HANDLE ‘쓸 내용’;


파일 닫기

close(HANDLE);


sprintf

$string = sprintf ‘%s’, ‘string’;


printf

printf ‘%d’, 2


찾을 문자열의 시작 인덱스 구하기

$i = index(string, substring, startIndex = 0);


시간 구하기

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);


시간 만들기

use POSIX;
$time_t = POSIX::mktime(sec, min, hour, mday, mon, year, wday = 0, yday = 0, isdst = -1);

 

문자열 연결은 ‘.’ 으로..

‘string1’.’string2′

환경변수 접근

$ENV(‘env1’)

ascii <-> character

$ascii_value = ord(“e”);    # now 101

$character   = chr(101);    # now “e”

더 많은 정보는 http://perldoc.perl.org

댓글 남기기

이메일은 공개되지 않습니다. 필수 입력창은 * 로 표시되어 있습니다

This site uses Akismet to reduce spam. Learn how your comment data is processed.