Question

I want to extract some elements from each line of a file.
Below is the line:

 #                 1150 Reading location  09ef38 data = 00b5eda4

I would like to extract the address 09ef38 and the data 00b5eda4 from this line.

The way I use is the simple one like below:

while($line = < INFILE >) {

    if ($line =~ /\#\s*(\S+)\s*(\S+)\s*(\S+)\s*(\S+)\s*(\S+)\s*=\s*(\S+)/) {
       $time = $1;
       $address = $4;
       $data = $6;
       printf(OUTFILE "%s,%s,%s \n",$time,$address,$data);
      }
}

I am wondering is there any better idea to do this ? easier and cleaner?

Thanks a lot!

TCGG

Answer 1

Another option is to split the string on whitespace:

my ($time, $addr, $data) = (split / +/, $line)[1, 4, 7];