Regular expression to match binary data amoun text data

[hisyc]

Is there a way match some string mixed with binary data?


$string=`head /bin/ls`;
$string=~/.*linux.*/;

It does not match. Are there any modifier can do that, I tried with /l, /u, /a, /x. None of them helps. Thanks!

[choroba]

For me, it matches. How do you test the success of the match?

$string =  `head /bin/ls`;
$string =~ /.*linux.*/ and print "Matches.\n";

[Anonymous Monk]

It does not match.

How do you know that? The code you posted won't tell you if there was a match

Also, what are you trying to match , what do you think that pattern is supposed to match?

Also, what is the data you're trying to match against?

Basic debugging checklist item 4 ( Dumper )

[RichardK]

I'm not sure if this is relevant, but using file rather than head would give you a more sensible message to match against.

[Jim]

    $string=~/.*linux.*/;
              ^^     ^^

Your use of the two patterns .* in this regular expression are purposeless, and they cause the regular expression engine to do things you don't want it to do. You should remove them.

    $string =~ m/linux/;

What are you setting the encoding of the input data to?

Jim

[hisyc]

Thanks for the reply, yes, you are right, it matches actually. The regular expression has no problem to match binary data. My problem turns out to be in XML::Simple->XMLin.

use XML::Simple;
my $ref=XMLin( "xml_invalid_char.input" );
print Dumper $ref;

Here is the input file content:

<description>?s«ndjfr?1 S334µµ!</description>

(Some strange char can not past here) The error is: not well-formed (invalid token) at line 1, column 22, byte 23 at /usr/lib/perl5/XML/Parser.pm line 187 Is there a way to let XMLin take in the input?