Re: Binary buffer

Binary data can contain newline characters, which cannot be matched by the default dot in a regex.

use strict; 
use warnings; 
use 5.012;

my $str = "\x16-\x03\x01\x01-\x16\x03\x01\x01PAY\nLOAD";

if ($str =~ /(\x16\x03\x01\x01 .*)/xms) {
    say $1;
    printf "%vd \n", $1;
    say length($str) - length($1);
}



--output:--
PAY
LOAD
22.3.1.1.80.65.89.10.76.79.65.68
6
[download]

Comment on Re: Binary buffer - substr Download Code

Replies are listed 'Best First'.
Re^2: Binary buffer - substr by dave_the_m (Monsignor) on Jan 14, 2013 at 08:26 UTC
Binary data can contain newline characters, which cannot be matched by the default dot in a regex Good point. I've updated my original post to include /s Dave.	[reply]

In Section Seekers of Perl Wisdom