hi i am trying to get digits inside brackes from file , whose structure is defined below

CREATE TABLE TELM
(SOC_NO                 CHAR (3)     NOT NULL,
 TXN_AMOUNT          NUMBER (17,3)  
 SIGN_ON_TIME        CHAR (8)     
 TELLER_APP_LIMIT   NUMBER (17,3)  
 FIL01                     CHAR (11)    
CONSTRAINT TELMPK
PRIMARY KEY (SOC_NO,
             TELLER_NO),
CONSTRAINT TELMUK_02
UNIQUE      (SOC_NO,
             TELLER_NO,
             SUP_TELLER));

[(SOC_NO                 CHAR (3)     NOT NULL,]

 if (/^.*(CHAR|NUMBER)\s*.*$/) {
             $_ =~ s/ DEFAULT(.*)// ;
             print "$_\n" ;
         if (/^.*\((\d+)\).*$/) {
             print "one:$1\n" ;
          }elsif (/^.*\((\d\d),(\d)\).*$/) {
             print "two :$2\n" ;
          }

TXN_AMOUNT          NUMBER (17,3)

Hi zedex,

supponing that the file you are reading is called 'temp', you can use this code to get both numbers in brackets:

open(FILE, "< temp");                                                                                                                                           
while ( $r = <FILE>) {
        if ($r =~  /^.*\s+.*\s+\((\d+)\)/) {
                print "\$1= $1\n";
                }
        elsif ($r =~  /^.*\s+.*\s+\((\d+),(\d+)\)/) {
                print "\$1= $1\n";
                print "\$2= $2\n";
                }
        }

thanx it worked as i wanted