“=）”附近的PERL语法错误

Question

我找到了这个example但是我收到了这个错误：

  语法错误在./test.pl第11行，靠近“=）”执行./test.pl   由于编译错误而中止。

第11行：while($line = ) {

Answer 1

脚本的作者没有准备将脚本包含在HTML中。实际代码是

{
    "token_type": "Bearer",
    "scope": "https://outlook.office.com/Calendars.Read https://outlook.office.com/Calendars.ReadWrite https://outlook.office.com/Mail.Read",
    "expires_in": 3600,
    "ext_expires_in": 0,
    "access_token": "EwAYA+l3B/Qk ... IpfA0C"
}

有关详细信息，请参阅readline。