Re^3: Count and print in perl

[johngg]

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.

[kanikas16]

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+
[phone] 32 48 32 48 32 48 32 48 32 48 32+
[phone] 32 48 32 48 32 48 32 48 32 49 32+
[phone] 32 49 32 48 32 48 32 48 32 49 32+
[phone] 32 48 32 48 32 48 32 48 32 48 32+
[phone] 32 48 32 48 32 48 32 48 32 48 32+
[phone] 32 48 32 48 32 48 32 48 32 48 32+
[phone] 32 48 32 48 32 48 32 49 32 48 32+
[phone] 32 48 32 48 32 48 32 48 32 49 32
[phone] 32 49 32 48 32 48 32 48 32 49 32
[phone] 32 48 32 48 32 48 32 48 32 49 32
[phone] 32 49 32 48 32 48 32 48 32 49 32
[phone] 32 49 32 48 32 48 32 48 32 48 32
[phone] 32 48 32 48 32 48 32 48 32 48 32
[phone] 32 48 32 48 32 48 32 48 32 49 32
[phone] 32 49 32 48 32 48 32 48 32 49 32
[phone] 32 48 32 49 32 48 32 48 32 48 32
[phone] 32 48 32 48 32 48 32 48 32 48 32
[phone] 48 32 48 32 48 32 48 32 48 32 49
[phone] 48 32 49 32 48 32 48 32 48 32 49
[phone] 32 48 32 48 32 48 32 49 32 48 32
[phone] 32 48 32 48 32 48 32 48 32 48 32
[phone] 49 32 48 32 48 32 48 32 48 32 48
[phone] 48 32 48 32 49 32 48 32 48 32 48
[phone] 32 49 32 48 32 48 32 48 32 48 32
[phone] 32 48 32 48 32 48 32 48 32 48 32
[phone] 49 32 49 32 48 32 48 32 48 32 48
[phone] 48 32 48 32 48 32 49 32 48 32 48
[phone] 32 49 32 49 32 48 32 48 32 48 32
[phone] 32 49 32 49 32 48 32 48 32 48 32
[phone] 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.

[johngg]

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.

[Anonymous Monk]

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