Re: Extracting Data from .txt file

[trizen]

in reply to Extracting Data from .txt file

my %data;

while (<DATA>) {
    while (/\b([A-Z]{3})\s+\d+(?:\.\d+)?\(\s*(\d+)\)/g) {
        $data{$1} = $2;
    }
}

print $data{UAU};    # prints 206846