Question

HI all,
I have a text file include this:

set_global_assignment -name FA "titan VII"
set_global_assignment -name DE ASDF3HF

I want to use perl to find out and extract the result of FA (result: titan VII) and DE (the result is: ASDF3HF). I only know basic on regular expression, i am not used to do expression and store this output. please help
Many thanks

Answer 1

You can do:

use strict;
use warnings;

my ($fa,$de);

open DATA,'<', $file or die

while(<DATA>) {
        if(/set_global_assignment -name FA\s(.*)/) {
                $fa = $1;
        }elsif(/set_global_assignment -name DE\s(.*)/) {
                $de = $1;
        }
}
print "FA = $fa\nDE = $de\n";

See it