Как извлечь динамически сгенерированный токен доступа из текстового файла в Perl?

Question

Я новичок в программировании на Perl, и я хочу знать решение этой проблемы. У меня есть эта информация ниже в текстовом файле с именем token.txt. Я хочу извлечь только динамически сгенерированное значение access_token и сохранить это значение в базе данных mysql. Как уже упоминалось, access_token будет генерироваться автоматически каждый раз, так как мне нужно хранить это значение access_token каждый раз. Кто-нибудь, помогите мне с кодом Perl. Заранее спасибо

{
  "access_token" : "JgV8Ln1lRGE8JTz4olEQW0rJJHUYsq2LO8Ny9o6m",
  "token_type" : "abcdef",
  "expires_in" : 123456
}

Answer 1

Это текст в формате JSON, поэтому я хотел бы предложить прочитать файл в строку и расшифровать его, например:

parse.pl

use File::Slurp;
use v5.10;
use JSON;

$token = decode_json ( read_file('token.txt') );

say $token->{'access_token'};

Тестэто так:

perl parse.pl

Вывод:

JgV8Ln1lRGE8JTz4olEQW0rJJHUYsq2LO8Ny9o6m

Answer 2

токен будет в $ токене,

perl -ne 's/"access_token"\s:\s"([^"]+)"/$tok=$1;print $1/e' token.txt