in reply to Regular Expression Problem
my $sql = <<'END_OF_SQL' ; CREATE TABLE "SO"."EL_HAND_RECEIPT" ( EL_ID NUMBER(20) NOT NULL, UIC VARCHAR2(6) NULL, ISSUE_RECEIPT_CD VARCHAR2(1) NOT NULL, PRIMARY KEY (EL_ID) ) TABLESPACE DATA / END_OF_SQL my $table = 'EL_HAND_RECEIPT' ; $sql =~ s/PRIMARY KEY/CONSTRAINT PK_$table PRIMARY KEY/; print $sql ;
Those who know that they are profound strive for clarity. Those who would like to seem profound to the crowd strive for obscurity. --Friedrich Nietzsche
|
---|