현재 위치

홈 ›› Forums ›› 공부 ›› 프로그래밍 QnA

[완료]perl 질문드립니다.

itexpert의 이미지
글쓴이: itexpert / 작성시간: 목, 2007/07/05 - 3:26오후

안녕하세요...

---------원본---------
CREATE TABLE "HDHS"."TMOTOQUEST" ("MOTO_CODE" VARCHAR2(10) NOT NULL
ENABLE, "MOTO_SEQ" VARCHAR2(3) NOT NULL ENABLE, "QUESTION_NOTE"
VARCHAR2(100)) PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255
STORAGE(INITIAL 65536 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL
DEFAULT) TABLESPACE "HSTV" NOLOGGING NOCOMPRESS ;
CONNECT HDHS;
CREATE UNIQUE INDEX "HDHS"."PK_TMOTOQUEST" ON "TMOTOQUEST" ("MOTO_CODE" ,
"MOTO_SEQ" ) PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536
FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT) TABLESPACE "HSTV_IDX"
NOLOGGING ;
ALTER TABLE "HDHS"."TMOTOQUEST" ADD CONSTRAINT "PK_TMOTOQUEST"
PRIMARY KEY ("MOTO_CODE", "MOTO_SEQ") USING INDEX PCTFREE 10 INITRANS
2 MAXTRANS 255 STORAGE(INITIAL 65536 FREELISTS 1 FREELIST GROUPS 1
BUFFER_POOL DEFAULT) TABLESPACE "HSTV_IDX" NOLOGGING ENABLE ;
ALTER TABLE "HDHS"."TMOTOQUEST" ADD CONSTRAINT
"FK_TMOTOQUE_RELATION__TMOTOCOD" FOREIGN KEY ("MOTO_CODE") REFERENCES
"TMOTOCODE" ("MOTO_CODE") ENABLE NOVALIDATE ;
ALTER TABLE "HDHS"."TMOTOQUEST" ENABLE CONSTRAINT
"FK_TMOTOQUE_RELATION__TMOTOCOD" ;

------- 원하는 결과 --------------
ALTER TABLE 로 시작하여 ;로 끝나는 문장들을 따로 뽑아내서 화면에 출력하고 싶습니다.
위에는 3개의 문장들이 있네요..

--------------------------
ALTER TABLE "HDHS"."TMOTOQUEST" ADD CONSTRAINT "PK_TMOTOQUEST"
PRIMARY KEY ("MOTO_CODE", "MOTO_SEQ") USING INDEX PCTFREE 10 INITRANS
2 MAXTRANS 255 STORAGE(INITIAL 65536 FREELISTS 1 FREELIST GROUPS 1
BUFFER_POOL DEFAULT) TABLESPACE "HSTV_IDX" NOLOGGING ENABLE ;
ALTER TABLE "HDHS"."TMOTOQUEST" ADD CONSTRAINT
"FK_TMOTOQUE_RELATION__TMOTOCOD" FOREIGN KEY ("MOTO_CODE") REFERENCES
"TMOTOCODE" ("MOTO_CODE") ENABLE NOVALIDATE ;
ALTER TABLE "HDHS"."TMOTOQUEST" ENABLE CONSTRAINT
"FK_TMOTOQUE_RELATION__TMOTOCOD" ;

perl 로 할수 있는 방법을 일러주심 감사하겠습니다.

답변 기다리겠습니다.

Forums: 
프로그래밍 QnA
aero의 이미지

글쓴이: aero / 작성시간: 목, 2007/07/05 - 3:52오후

예전에 제가 답변드린 http://kldp.org/node/83777 글에 답이 있습니다.

#!/usr/bin/env perl
use strict;
use warnings;
 
#내용을 $data안에 모두 넣는다.
my $data = do { local $/; <DATA> };
#매칭이 일어날때 까지 루프를 돌며 매칭값을 프린트한다.
while ( $data =~ m/(ALTER TABLE.*?;)/sgm ) {
    print "$1\n\n";
}
 
__DATA__
CREATE TABLE "HDHS"."TMOTOQUEST" ("MOTO_CODE" VARCHAR2(10) NOT NULL
ENABLE, "MOTO_SEQ" VARCHAR2(3) NOT NULL ENABLE, "QUESTION_NOTE"
VARCHAR2(100)) PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255
STORAGE(INITIAL 65536 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL
DEFAULT) TABLESPACE "HSTV" NOLOGGING NOCOMPRESS ;
CONNECT HDHS;
CREATE UNIQUE INDEX "HDHS"."PK_TMOTOQUEST" ON "TMOTOQUEST" ("MOTO_CODE" ,
"MOTO_SEQ" ) PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536
FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT) TABLESPACE "HSTV_IDX"
NOLOGGING ;
ALTER TABLE "HDHS"."TMOTOQUEST" ADD CONSTRAINT "PK_TMOTOQUEST"
PRIMARY KEY ("MOTO_CODE", "MOTO_SEQ") USING INDEX PCTFREE 10 INITRANS
2 MAXTRANS 255 STORAGE(INITIAL 65536 FREELISTS 1 FREELIST GROUPS 1
BUFFER_POOL DEFAULT) TABLESPACE "HSTV_IDX" NOLOGGING ENABLE ;
ALTER TABLE "HDHS"."TMOTOQUEST" ADD CONSTRAINT
"FK_TMOTOQUE_RELATION__TMOTOCOD" FOREIGN KEY ("MOTO_CODE") REFERENCES
"TMOTOCODE" ("MOTO_CODE") ENABLE NOVALIDATE ;
ALTER TABLE "HDHS"."TMOTOQUEST" ENABLE CONSTRAINT
"FK_TMOTOQUE_RELATION__TMOTOCOD" ;
__END__

결과

ALTER TABLE "HDHS"."TMOTOQUEST" ADD CONSTRAINT "PK_TMOTOQUEST"
PRIMARY KEY ("MOTO_CODE", "MOTO_SEQ") USING INDEX PCTFREE 10 INITRANS
2 MAXTRANS 255 STORAGE(INITIAL 65536 FREELISTS 1 FREELIST GROUPS 1
BUFFER_POOL DEFAULT) TABLESPACE "HSTV_IDX" NOLOGGING ENABLE ;
 
ALTER TABLE "HDHS"."TMOTOQUEST" ADD CONSTRAINT
"FK_TMOTOQUE_RELATION__TMOTOCOD" FOREIGN KEY ("MOTO_CODE") REFERENCES
"TMOTOCODE" ("MOTO_CODE") ENABLE NOVALIDATE ;
 
ALTER TABLE "HDHS"."TMOTOQUEST" ENABLE CONSTRAINT
"FK_TMOTOQUE_RELATION__TMOTOCOD" ;
itexpert의 이미지

글쓴이: itexpert / 작성시간: 목, 2007/07/05 - 4:07오후

답변감사드립니다...

my $data = do { local $/; };

에 파일값을 읽어서 넣어야 하는거죠?? 에 a.sql파일의 값을 어떻게 읽어서 넣죠?

itexpert의 이미지

글쓴이: itexpert / 작성시간: 목, 2007/07/05 - 4:07오후

답변감사드립니다...

my $data = do { local $/; };

에 파일값을 읽어서 넣어야 하는거죠?? 에 a.sql파일의 값을 어떻게 읽어서 넣죠?

aero의 이미지

글쓴이: aero / 작성시간: 목, 2007/07/05 - 4:17오후

예전에 님이 질문하셨던 글에 답이 있습니다.
http://kldp.org/node/83775
의 keedi님 답변을 곰곰히 보세요.

itexpert의 이미지

글쓴이: itexpert / 작성시간: 목, 2007/07/05 - 4:16오후

한가지만 더 여쭙겠습니다..

혹시,,,,
ALTER TABLE "HDHS"."TMOTOQUEST" ADD CONSTRAINT "PK_TMOTOQUEST"
PRIMARY KEY ("MOTO_CODE", "MOTO_SEQ") USING INDEX PCTFREE 10 INITRANS
2 MAXTRANS 255 STORAGE(INITIAL 65536 FREELISTS 1 FREELIST GROUPS 1
BUFFER_POOL DEFAULT) TABLESPACE "HSTV_IDX" NOLOGGING ENABLE ;

ALTER TABLE "HDHS"."TMOTOQUEST" ADD CONSTRAINT
"FK_TMOTOQUE_RELATION__TMOTOCOD" FOREIGN KEY ("MOTO_CODE") REFERENCES
"TMOTOCODE" ("MOTO_CODE") ENABLE NOVALIDATE ;

ALTER TABLE "HDHS"."TMOTOQUEST" ENABLE CONSTRAINT
"FK_TMOTOQUE_RELATION__TMOTOCOD" ;

문장들중...ALTER TABLE로 시작하고,,, 중간에 PRIMARY KEY 가 들어가고 ;로 끝나는 문장 추려내기 이것도 가능한지요?????

aero의 이미지

글쓴이: aero / 작성시간: 목, 2007/07/05 - 4:21오후

$data =~ m/(ALTER TABLE.*?;)/sgm 를
$data =~ m/(ALTER TABLE.*?PRIMARY KEY.*?;)/sgm 로

itexpert의 이미지

글쓴이: itexpert / 작성시간: 목, 2007/07/05 - 5:12오후

감사합니다. ^__^
수고하세요...

댓글 달기

텍스트 포맷에 대한 자세한 정보

Filtered HTML

  • 텍스트에 BBCode 태그를 사용할 수 있습니다. URL은 자동으로 링크 됩니다.
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param><hr>
  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.

BBCode

  • 텍스트에 BBCode 태그를 사용할 수 있습니다. URL은 자동으로 링크 됩니다.
  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param>
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.

Textile

  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • You can use Textile markup to format text.
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param><hr>

Markdown

  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • Quick Tips:
    • Two or more spaces at a line's end = Line break
    • Double returns = Paragraph
    • *Single asterisks* or _single underscores_ = Emphasis
    • **Double** or __double__ = Strong
    • This is [a link](http://the.link.example.com "The optional title text")
    For complete details on the Markdown syntax, see the Markdown documentation and Markdown Extra documentation for tables, footnotes, and more.
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param><hr>

Plain text

  • HTML 태그를 사용할 수 없습니다.
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.
  • 줄과 단락은 자동으로 분리됩니다.
댓글 첨부 파일
이 댓글에 이미지나 파일을 업로드 합니다.
파일 크기는 8 MB보다 작아야 합니다.
허용할 파일 형식: txt pdf doc xls gif jpg jpeg mp3 png rar zip.
CAPTCHA
이것은 자동으로 스팸을 올리는 것을 막기 위해서 제공됩니다.