in reply to Re: Count and print in perl
in thread Count and print in perl

print pack 'C*', map 0 + $_, split /\s+/, <DATA>; __DATA__ 1 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 2 1 1 0 0 0 0 0 1 1 0 0 0 1 0 0 0 +1 3 1 1 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 4 1 1 1 0 0 0 0 0 0 1 0 0 0 0 0 + 1 0 5 1 1 0 0 0 0 0 1 1 0 0 0 1 0 0 0 1 6 1 1 0 0 0 0 0 1 1 0 0 0 1 +0 0 0 1 7 1 1 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 8 1 1 0 0 0 0 0 1 1 0 0 0 + 1 0 0 0 1 9 1 1 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 10 1 1 0 0 0 0 0 1 1 0 + 0 0 1 0 0 0 1 11 1 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 12 1 1 0 0 0 0 0 +1 1 0 0 0 1 0 0 0 1 13 1 1 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0

Replies are listed 'Best First'.
Re^3: Count and print in perl
by johngg (Canon) on Apr 17, 2017 at 21:51 UTC

    Assuming Anonymonk is actually kanikas16 who forgot to log in I'll take that as a yes, in which case something along these lines:-

    johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -E ' my $inFile = q{spw1188105.dat}; open my $inFH, q{<}, $inFile or die qq{open: < $inFile: $!\n}; while ( my $bytesRead = read $inFH, my $record, 18 ) { printf q{%-3d} x 18 . qq{%s\n}, map( ord, split m{}, $record ), q{x} x 35; } close $inFH or die qq{close: < $inFile: $!\n};' 1 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 xxxxxxxxxxxxxxxx +xxxxxxxxxxxxxxxxxxx 2 1 1 0 0 0 0 0 1 1 0 0 0 1 0 0 0 1 xxxxxxxxxxxxxxxx +xxxxxxxxxxxxxxxxxxx 3 1 1 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 xxxxxxxxxxxxxxxx +xxxxxxxxxxxxxxxxxxx 4 1 1 1 0 0 0 0 0 0 1 0 0 0 0 0 1 0 xxxxxxxxxxxxxxxx +xxxxxxxxxxxxxxxxxxx 5 1 1 0 0 0 0 0 1 1 0 0 0 1 0 0 0 1 xxxxxxxxxxxxxxxx +xxxxxxxxxxxxxxxxxxx 6 1 1 0 0 0 0 0 1 1 0 0 0 1 0 0 0 1 xxxxxxxxxxxxxxxx +xxxxxxxxxxxxxxxxxxx 7 1 1 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 xxxxxxxxxxxxxxxx +xxxxxxxxxxxxxxxxxxx 8 1 1 0 0 0 0 0 1 1 0 0 0 1 0 0 0 1 xxxxxxxxxxxxxxxx +xxxxxxxxxxxxxxxxxxx 9 1 1 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 xxxxxxxxxxxxxxxx +xxxxxxxxxxxxxxxxxxx 10 1 1 0 0 0 0 0 1 1 0 0 0 1 0 0 0 1 xxxxxxxxxxxxxxxx +xxxxxxxxxxxxxxxxxxx 11 1 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 xxxxxxxxxxxxxxxx +xxxxxxxxxxxxxxxxxxx 12 1 1 0 0 0 0 0 1 1 0 0 0 1 0 0 0 1 xxxxxxxxxxxxxxxx +xxxxxxxxxxxxxxxxxxx 13 1 1 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0 xxxxxxxxxxxxxxxx +xxxxxxxxxxxxxxxxxxx

    I hope this is heading in the right direction.

    Cheers,

    JohnGG

      hi, but this is not printing into binary format
      49 32 49 32 48 32 48 32 48 32 48 32 48 32 48 32 48 32+ +48 32 49 32 48 32 48 32 48 32 48 32 48 32 48 32 48 32+ +50 32 49 32 49 32 48 32 48 32 48 32 48 32 48 32 49 32+ +49 32 48 32 48 32 48 32 49 32 48 32 48 32 48 32 49 32+ +51 32 49 32 49 32 49 32 48 32 48 32 48 32 48 32 48 32+ +48 32 49 32 48 32 48 32 48 32 48 32 48 32 48 32 48 32+ +52 32 49 32 49 32 49 32 48 32 48 32 48 32 48 32 48 32+ +48 32 49 32 48 32 48 32 48 32 48 32 48 32 49 32 48 32+ +53 32 49 32 49 32 48 32 48 32 48 32 48 32 48 32 49 32 +49 32 48 32 48 32 48 32 49 32 48 32 48 32 48 32 49 32 +54 32 49 32 49 32 48 32 48 32 48 32 48 32 48 32 49 32 +49 32 48 32 48 32 48 32 49 32 48 32 48 32 48 32 49 32 +55 32 49 32 49 32 48 32 49 32 48 32 48 32 48 32 48 32 +48 32 49 32 48 32 48 32 48 32 48 32 48 32 48 32 48 32 +56 32 49 32 49 32 48 32 48 32 48 32 48 32 48 32 49 32 +49 32 48 32 48 32 48 32 49 32 48 32 48 32 48 32 49 32 +57 32 49 32 49 32 48 32 48 32 49 32 48 32 48 32 48 32 +48 32 49 32 48 32 48 32 48 32 48 32 48 32 48 32 48 32 +49 48 32 49 32 49 32 48 32 48 32 48 32 48 32 48 32 49 +32 49 32 48 32 48 32 48 32 49 32 48 32 48 32 48 32 49 +32 49 49 32 49 32 49 32 48 32 48 32 48 32 49 32 48 32 +48 32 48 32 49 32 48 32 48 32 48 32 48 32 48 32 48 32 +48 32 49 50 32 49 32 49 32 48 32 48 32 48 32 48 32 48 +32 49 32 49 32 48 32 48 32 48 32 49 32 48 32 48 32 48 +32 49 32 49 51 32 49 32 49 32 48 32 48 32 48 32 48 32 +49 32 49 32 49 32 49 32 48 32 48 32 48 32 48 32 48 32 +48 32 48 32 49 52 32 49 32 49 32 48 32 48 32 48 32 48 +32 48 32 49 32 49 32 48 32 48 32 48 32 49 32 48 32 48 +32 48 32 49 32 49 53 32 49 32 49 32 48 32 48 32 48 32 +48 32 48 32 48 32 48 32 49 32 49 32 48 32 48 32 48 32 +48 32 49 32 48 32 48 32 48 32 48 32 48 32 49 32 49 32 Argument "" isn't numeric in printf at counter.pl line 3 Missing argument in printf at counter.pl line 36.

        What do you mean by binary format? Please show us a hexdump -C of your input file inside <code> ... </code> tags, the code you used to produce this output inside <code> ... </code> tags and the output you are expecting, also inside <code> ... </code> tags. Your narrative should be inside <p> ... </p> tags.

        As things stand it is not clear what you are trying to achieve.

        Cheers,

        JohnGG

      Did you run "Anonymonk's" code and compare to your own?