convert JSON buffer to string in perl - node.js

Question

Issue: Trying to write json buffer data to a file using Perl script.
Scenario:
I will have binary data in Postgres.
So to recreate the scenario, I converted "geeks" into binary format and stored in Postgres.
Input : geeks
Output : 1100111 1100101 1100101 1101011 1110011
Nodejs query the binary data from the postgres and send the response as below in json format.
[
{
"lo_get": {
"type": "Buffer",
"data": [
49,
49,
48,
48,
49,
49,
49,
32,
49,
49,
48,
48,
49,
48,
49,
32,
49,
49,
48,
48,
49,
48,
49,
32,
49,
49,
48,
49,
48,
49,
49,
32,
49,
49,
49,
48,
48,
49,
49
]
}
}
]
Below is the Perl script I have written but I am not sure how to write the original string i.e. "geeks" to the file ..
$req = HTTP::Request->new(GET => $url);
$res = $ua->request($req);
$response = decode_json($res->content);
if ($res->is_success & #$response) {
$string = #$response[0]->{Output}->{data};
print ($string);
}
open my $fh, ">", "data_out.json";
print $fh encode_json($string);
close $fh;
Am not sure how can i get the file with 'geeks' as content.

Answer 1

my $binary =
pack 'C*',
#{ $response->[0]{lo_get}{data} };
say $binary; # '1100111 1100101 1100101 1101011 1110011
my $bytes =
pack 'C*',
map { oct("0b$_") }
split(' ', $binary);
say $bytes; # geeks
It is converted into binary
This makes no sense. In addition to the needless extra work converting the bytes into their binary representation or back when accessing the database, it multiplies the storage needed by 9 for nothing!

Answer 2

Algorithm to solution of the problem:
Obtain data into hash ref
use operator map with split to convert numbers into bin representation
join array of converted with chr and oct bin numbers into a string
process string as you desire
use strict;
use warnings;
use feature 'say';
use JSON;
use Data::Dumper;
my $fname = 'data.txt';
my $input = do { local $/; <DATA> };
my $data = from_json($input);
say 'Read: ' . Dumper($data);
my $str = join '', map { chr } #{$data->[0]{lo_get}{data}};
my #bin = map { '0b' . $_ } split ' ', $str;
$str = join '', map { chr oct($_) } #bin;
say 'Out: ' . $str;
open my $fh, '>', $fname
or die "Couldn't open $fname";
say $fh $str;
close $fh;
__DATA__
[
{
"lo_get": {
"type": "Buffer",
"data": [
49,
49,
48,
48,
49,
49,
49,
32,
49,
49,
48,
48,
49,
48,
49,
32,
49,
49,
48,
48,
49,
48,
49,
32,
49,
49,
48,
49,
48,
49,
49,
32,
49,
49,
49,
48,
48,
49,
49
]
}
}
]
Run as script.pl
Read: $VAR1 = [
{
'lo_get' => {
'type' => 'Buffer',
'data' => [
49,
49,
48,
48,
49,
49,
49,
32,
49,
49,
48,
48,
49,
48,
49,
32,
49,
49,
48,
48,
49,
48,
49,
32,
49,
49,
48,
49,
48,
49,
49,
32,
49,
49,
49,
48,
48,
49,
49
]
}
}
];
Out: geeks
Content of the file data.txt
geeks