Re: Simple regex

Maybe this is what you're looking for:

$text =~ s/(.+\s)\S*\.\S*/$1/g;
[download]

OUTPUT:

0000 636d6400 5589e583 ec0831c0 83e4f0e8
0010 00000000 e8000000 0083ec0c 68000000
0020 00e80000 000031c0 c9c39090 90909090
[download]

Comment on Re: Simple regex Select or Download Code

Replies are listed 'Best First'.
Re^2: Simple regex by Isothop (Acolyte) on Jan 19, 2005 at 13:42 UTC
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 !	[reply] [d/l]
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]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks