为什么Perl LWP的getstore在OS X上失败但Windows 10上正常？

• 返回500并非Google服务器真实投递失败，是OS X运行环境的兼容性问题导致，具体有三类：
  1. HTTPS支持缺失：OS X 10.11自带的Perl 5.18.2预装LWP套件，未绑定LWP::Protocol::https模块，无法正常完成HTTPS请求的证书校验、TLS握手流程，异常场景会被直接封装为500状态码返回。
  2. TLS版本不兼容：OS X 10.11自带的OpenSSL库最高仅支持TLS 1.0/1.1协议，而Google Drive当前强制要求TLS 1.2及以上版本才能接入，不符合要求的请求会被直接拒绝，部分场景下返回500。
  3. 请求被反爬拦截：LWP::Simple默认发送的User-Agent为libwww-perl/版本号格式，会被Google的反爬策略直接拦截返回500；Windows环境下的LWP版本较新，默认请求头更完善，因此不会触发拦截。

• 1. 补全HTTPS依赖组件
     执行命令安装缺失模块：
     cpanm LWP::Protocol::https IO::Socket::SSL Mozilla::CA
     其中IO::Socket::SSL用于提供TLS 1.2支持，Mozilla::CA提供最新的根证书列表，避免证书校验异常。
• 2. 修改代码规避拦截与兼容问题
     不再使用功能简陋的LWP::Simple，改用可自定义配置的LWP::UserAgent实例，强制指定TLS版本、模拟正常浏览器的请求头，修改后的代码如下：

  use strict;
  use warnings;
  use LWP::UserAgent;
  
  # 配置客户端参数
  my $ua = LWP::UserAgent->new(
      agent => 'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_11_6) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/103.0.0.0 Safari/537.36',
      ssl_opts => {
          SSL_version => 'TLSv1_2', # 强制使用TLS1.2握手
      }
  );
  
  print "\n以下请求在Windows 10和OS X环境下均可正常运行\n";
  my $url = "http://example.com"; 
  my $response = $ua->get($url);
  # 替换原getstore的写文件逻辑
  open my $fh, '>', '/tmp/web.html' or die "无法写入临时文件: $!";
  print $fh $response->content;
  close $fh;
  print "对\"$url\"的请求结果为\n状态码是 " . $response->code . " . 调用成功标记=" . $response->is_success . "\n";
  
  print "\n以下请求在Windows 10环境下正常，但OS X环境下运行失败\n";
  $url = "https://drive.google.com/open?id=1FqtZptibqeu4uKbv0vzinjWv5bwi8-Y2";
  $response = $ua->get($url);
  open $fh, '>', '/tmp/web.html' or die "无法写入临时文件: $!";
  print $fh $response->content;
  close $fh;
  print "对\"$url\"的请求结果为\n状态码是 " . $response->code . " . 调用成功标记=" . $response->is_success . "\n";
  
  print "\n按回车键退出";
  my $ans = <stdin>;
  

• 3. 可选优化：替换系统自带Perl
     系统自带Perl长期未更新，后续还会遇到各类兼容问题，可直接安装第三方维护的新版Perl套件，自带更新的OpenSSL与HTTPS依赖，无需额外配置。

内容的提问来源于stack exchange，提问作者virgban