in reply to Re: Perl script speed
in thread Perl script speed

I think the regex in rasGate should to be

my (undef, $key, $value) = $line =~ /\{([^}]*)\}/g or next; # * not +

to parse the empty brackets {} correctly otherwise you get a column called 0.0000 in the table.

ARR_CLC
    {} {Clock Rise Edge} {0.0000}
    {+} {Drive Adjustment} {1.3300}
    {=} {Beginpoint Arrival Time} {1.3300}
END_ARR_CLC

[download]
poj

In Section Seekers of Perl Wisdom