| 메타문자 | 의미 |
| . | 임의의 한문자(행바꿈은제외) |
| * | 0회이상반복 |
| + | 1회이상반복 |
| ? | 0회또는1회반복 |
| ^ | 선두 |
| $ | 말미 |
| | | 선택 |
| () | 정규표현그룹 |
| [] | 문자클래스 |
| {n} | n회반복 |
| {n, } | n회이상반복 |
| {n,m} | n회반복m회이하반복 |
| \ | 메타문자를 문자로 취급 |
| 특수문자 | 문자클래스 | 의미 |
| \w | [0-9a-zA-Z] | 영문자, 숫자와 _(언더바) |
| \W | [^0-9a-zA-Z] | " 이외 |
| \s | [\t\n\f] | 공백 |
| \S | [^\t\n\f] | " 이외 |
| \d | [0-9] | 숫자 |
| \D | [^0-9] | " 이외 |
| 옵션 | 동작 |
| e | 치환후 문자열을 식으로 간주 |
| g | 매치하려는것을 모두 찾음 |
| i | 대소문자 구별 않음 |
| m | 문자열을 복수행으로 취급 |
| s | 문자열을 단수행으로 취급 |
| x | 패턴안의 모든 스페이스 무시 |
[입력받은 숫자를 모두 합하는(999가 입력될때까지, 최종계산시 999는 계산 안됨) 코드]
$i=0;
$sum=0;
print "숫자를 입력하시오";
while(<>){ #입력받은 값은 $_이 받아들입니다.
if($_ > 999){ #999이사의 값이 입력시에 무효처리합니다
print "\n범위를 초과했잖아~!\n\n";
print "숫자를 입력하시오";
}
elsif($_ != 999){ #999가 아닌 경우 값으로 받아 들여 저장합니다.
$n[$i]=$_; #$_를 @n에 배열하고,
$sum += $n[$i]; #$sum에 앞으로 입력될 @n값들을 합하는 식 입니다.
$i++;
print "숫자를 입력하시오";
}
else{ #999은 경우 종료합니다.
last;
}
}
print $sum; #총 합계 등장!
#!/perl/bin/perl
use DBI;
#DBI 연결
$dbh = DBI->connect("DBI:Oracle:misdb", "s021208", "gho0917") || die $DBI::errstr;
#새로운행 입력
$query = "insert into emp (empno,ename,deptno) values (1002, 'test', 10)";
$dbh -> do ($query);
#행 질의 실행
$sth = $dbh -> prepare("select empno, ename from emp where deptno = 10");
$sth -> execute;
#질의한 행 화면에 출력
while(($empno, $ename) = $sth->fetchrow_array){
print $empno . $ename . "\n";
}
#DBI접속종료
$dbh -> disconnect;
#침고페이지: http://www.ihelpers.co.kr/programming/lec.php?CMD=view&IDX=66
