in reply to Parse Hex Values
Update:Here's the best I could get out of your code as written; I am sure I mistranslated something in the effort to compensate for the lack of <code> and </code> tags.
#!/usr/bin/perl -w use strict; # ---------------[ Original request ]--------------- # I have a string: P7: "P7": place in [from Mem:0x5ffa5800 to Mem:0x60 +077fff] # { I need to extract both Hex Values and subtract value 2 from value +2 # There are allot of ways to parse a astring and wanted to be a little + more elegant in the approach. # I am not getting an matches at all with this and it should work. my $line = "P7: \"P7\": place in [from Mem:0x5ffa5800 to Mem:0x6007 +7fff]"; print "\$line = '$line'\n"; if ($line =~ m/"P7"\:/) { print "\$line matches P7\n"; if ( $line =~ /\(.*Mem:\)\(0x[0-9a-fA-F]*\)\( to Mem:\)\(0x[0-9a-f +A-F]*\) ) { print "First Value $2 \n"; print "Second Value $4 \n "; } else { print "Did not match second test\n"; } } exit; __END__ C:\Steve\Dev\PerlMonks\P-2013-09-23@1223-HexCalc>HexCalc.pl Search pattern not terminated at C:\Steve\Dev\PerlMonks\P-2013-09-23@1 +223-HexCalc\HexCalc.pl line 18.
|
|---|