如何从perl中的文本文件中提取动态生成的访问令牌？

Question

我是编程的初学者，我想知道这个问题的解决方案。我在名为token.txt的文本文件中有以下信息。我想只提取动态生成的access_token值并将该值存储到mysql数据库。如上所述，access_token将每次自动生成，因此我每次都需要存储此access_token值。任何人都帮助我使用perl代码。提前致谢

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

Answer 1

这是JSON格式的文本，所以我建议将文件读成字符串并解码，例如：

parse.评论

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

令牌将在$ tok中，

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