SZ
Ну где ты делаешь $c .= $_}{
Size: a a a
2021 April 10
IB
Мне все равно. Это одноразовый скрипт — мне нужно получить резульатат, то как внутри все красиво написано — не очень важно. Ради смеха я все это писал однострочником.
SZ
perl -MLWP::UserAgent -MJSON::PP -le '
my $ua = LWP::UserAgent->new(ssl_opts => {verify_hostname => 0});
my $rc = $ua->get("https://www.artlebedev.ru/country-list/tab/");
die unless $rc->{_rc} == 200;
$_ = $rc->{_content};
my %code2name;
$code2name{$2} = $1 while /^([^\t]+)(?:\t[^\t]+){2}\t([^\t]+)/gm;
$rc = $ua->get("https://analytics.home-assistant.io/data.json");
die unless $rc->{_rc} == 200;
my $json = decode_json $rc->{_content};
... here parse your JSON
for () {
print sprintf "%2s %2s %-25s %10s\n", $i++, $id, $code2name{$id}, ... ->{$id}
} 'SZ
Ну раз «на один раз», то и так пойдет
SZ
IB
Вот как раз не хотелось заморачитваься с LWP, поэтому curl
IB
я там еще совершенно жутким образом читаю из файла с помощью
$tsv = `cat countries.tsv`; =)SZ
Ну да, причем на каждую строку ввода
SZ
О чем я и писал :))
SZ
Хоть бы в begin это вынес
IB
А. Теперь понял о чем ты.
SZ
Зачем 30 раз повторять одно и то же чтение + парсинг :)
IB
Согласен, очень криво написал
SZ
Да забей, я ж говорю: на один раз можно вообще как угодно написать :)
IB
Да и и забил =)
IB
Я хотел с помощью jq вытащить часть из оригинального json-а, но я его очень плохо знаю и быстро не смог найти решение как из https://analytics.home-assistant.io/data.json вытащить только объект
countriesRL
А потом другие люди будут это годами поддерживать ))
RL
вот за это Perl и не любят ))
SZ
jq -r '.["1618060253816"].countries'IB