matching pattern in perl

vinaytp · 06-21-2009, 04:10 AM

hi all......

This is my perl script:

while ($text){
if($text=~ /^\s+\S+\s+CHAR|VARCHAR2/){
print ($text);

CONTENTS TO BE MATCHED IN A FILE:

NAME CHAR(5);
VIN CHAR(5);
CLASS VARCHAR2(18,2);
ADDS CHAR(30);

here i am not able to match any of these....can anyone please help me......

Thanks in advance......

Tinkster · 06-21-2009, 04:18 AM

Well, /^\s/ will fail on the lines you've posted,
none of them begin with whitespace

vinaytp · 06-21-2009, 04:50 AM

Quote:

Originally Posted by Tinkster

Well, /^\s/ will fail on the lines you've posted,
none of them begin with whitespace

sorry...actually it has white spaces..i forgot to put.....

ghostdog74 · 06-21-2009, 06:06 AM

simpler:
1) split the line into array on whitespaces
2) iterate the array using for loop
3) check for each item, use /^(CHAR|VARCHAR)/

Tinkster · 06-21-2009, 12:27 PM

Btw, if the code-snippet is complete ... where do you
change $text for the next iteration? Or is the whole
file in the scalar?

Cheers,
Tink