Way to not define much variables in Perl? [closed] - perl

Question

Closed. This question needs details or clarity. It is not currently accepting answers.
Want to improve this question? Add details and clarify the problem by editing this post.
Closed 5 years ago.
Improve this question
I'm asking about most simple way to
Get www content (with curl I think)
Search and replace text with tree regular expression (s/a/b/; and s/as/da' etc)
Must I define variables every time when I want use a Perl command? In bash I piped the output from curl:
curl www.google.pl | sed 's/a/b'
I want to omit of these $dupa lines
$#!/usr/bin/perl
$dupa = `curl -s https://api.binance.com/api/v1/ticker/allPrices`;
$dupa =~ s/"},\{"/\n/g;
$dupa =~ s/":"/=/g;
$dupa =~ s/","/\n/g;
$dupa =~ s/\[{"//g;
print $dupa;

Answer 1

Always use strict in Perl code. No exceptions!
Don't shell out to curl to make an HTTP request. Use a Perl module like LWP::Simple.
The data you are downloading is JSON. Don't manipulate it as a string; use a JSON parser, like JSON::XS, to convert it to a data structure.
Here's a start:
use strict;
use LWP::Simple qw( get );
use JSON::XS qw( decode_json );
use Data::Dumper qw( Dumper );
my $data = decode_json(get("https://api.binance.com/api/v1/ticker/allPrices"));
print Dumper($data);
You can now manipulate the data structure in the $data variable; for instance:
for my $item (#$data) {
print "$item->{symbol} : $item->{price}\n";
}