in reply to Help with Generic Pattern Matching Statement
Above giveswhile(<DATA>){ chomp; s/\"|\;//g; my($item,$value) = split /\s\:?/,$_,2; $value =~ s/^\s*\(//; $value =~ s/\)\s*$//; print "$item , $value\n"; } __DATA__ direction : in code_unit : "1ps"; sum_1 ("0.01, 0.02"); function : "((( X1 | X2 ) & A1))"; process : 1; cap ( 3.0 , pf ); features ( display ) ;
direction , in code_unit , 1ps sum_1 , 0.01, 0.02 function , (( X1 | X2 ) & A1) process , 1 cap , 3.0 , pf features , display
|
|---|