Perl:curl:(1)libcurl 中不支持或禁用协议(protocol)“http”

Question

Perl Question 。我正在尝试让这个脚本在调试器中运行。

我已经在 Windows 7x64 上运行了 Aptana + Epic + ActivePerl 5.12.4。脚本启动正常，但出现错误:

curl -sS http://intranet.mycompany.org/directory/directory.xml

上面的命令工作正常...但是如果我启动调试器，我会收到此错误:

curl: (1) Protocol 'http not supported or disabled in libcurl

以下脚本的第一部分:

#!/usr/bin/perl
use strict;

use XML::Parser;
use Data::Dumper;

my $url = 'http://intranet.atlanticgeneral.org/directory/directory.xml';
my $output = 'C:\global.gabook';

my $file = "curl -sS '$url' |";
my $parser = new XML::Parser(Style => 'Tree');
my $tree = $parser->parsefile($file)->[1];

Answer 1

Windows 不喜欢命令中使用单引号。尝试在命令中使用双引号，使用 qq{} 转义。只需更改一行:

my $file = qq{curl -sS "$url" |};