Re^2: Portable way to extract string from a binary (strings.pl)

To match strings(1) as I'm used to, you'd want something like:

my( $min, $max ) = ( 4, 32*1024 );
local( $/ ) = \(32*1024);
my $prev = '';
while( <> ) {
    $prev .= $_;
    while( $prev =~ /([\n\t -~]{$min,$max})\0/g ) {
        print "$1\n";
    }
    $prev =~ s/.*\0//s;
}
[download]

Though I notice that strings(1) on FreeBSD replaces the "followed by '\0'" with "followed by an unprintable character", which my testing finds to be a disadvantage (at least it should be made optional).

- tye

Comment on Re^2: Portable way to extract string from a binary (strings.pl) Download Code

Replies are listed 'Best First'.
Re^3: Portable way to extract string from a binary (strings.pl) by tachyon (Chancellor) on Jul 15, 2004 at 01:29 UTC
Hmm, while I take your point about looking for null termination the code you present does not work for me. The first issue is this: `C:\>strings.pl myscript.exe Quantifier in {,} bigger than 32766 before HERE mark in regex m/([\n\t + -~]{ << HERE 4,32768})\0/` [download] Read more... (2 kB)	[reply] [d/l] [select]