Here are some changes I'd make:
use warnings; use strict; while (my $line = <DATA>) { if ($line =~ m/"P7"\:/) { if ( $line =~ /Mem:(0x[[:xdigit:]]+) to Mem:(0x[[:xdigit:]]+)/) +{ print "First Value $1 \n"; print "Second Value $2 \n "; } } } __DATA__ P7: "P7": place in [from Mem:0x5ffa5800 to Mem:0x60077fff]
In reply to Re: Parse Hex Values
by toolic
in thread Parse Hex Values
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |