Re^2: Simple regex

thanks for your help but the problem is still there.
this is my source code :

#!perl -w
#

use strict;

#
# Hashes

my %struct_compilation = (
    "objdump" => "%s -j .text -s -z %s",
);

my %compilation = (
    "objdump" => "", 
);

my %return = (
    "objdump" => "", 
);

my $path = "D:/Progs/Programmation/Dev-Cpp/bin/";
my %compiler = (
    "objdump" => $path . "objdump.exe",
);

#
# Main

if( @ARGV < 1 )
{
    exit( 0 );
}

my $src = $ARGV[0];

$compilation{"objdump"} = sprintf( $struct_compilation{"objdump"}, $co
+mpiler{"objdump"}, $src );
$return{"objdump"} = `$compilation{"objdump"}`;
$return{"objdump"} =~ s/[0-9a-f]{4}//g ;

print $return{"objdump"};
[download]

i want to print the hexa decimal string whitch is returned by objdump but my regex do the contrary !

Comment on Re^2: Simple regex Download Code

Replies are listed 'Best First'.
Re^3: Simple regex by Anonymous Monk on Jan 19, 2005 at 14:00 UTC
Replace `$return{"objdump"} =~ s/[0-9a-f]{4}//g;` [download] with `$return{"objdump"} = join("",$return{"objdump"} =~ /[0-9a-f]{4}/g)` [download]	[reply] [d/l] [select]
Re^4: Simple regex by Isothop (Acolyte) on Jan 19, 2005 at 14:04 UTC
thanks to you ! it works :)	[reply]
Re^3: Simple regex by Random_Walk (Prior) on Jan 19, 2005 at 13:59 UTC
For those of us not blessed with windows and objdump can you post a frag of the objdump output so we can see what to aim for. Thanks, R. Pereant, qui ante nos nostra dixerunt!	[reply]