Question

Perl Question. I’m trying to get this script running in a debugger.

I’ve got Aptana + Epic + ActivePerl 5.12.4 working on Windows 7×64. The script is starting fine but I’m getting an error:

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

The above command works fine… but if I start the debugger I get this error:

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

First part of the script below:

#!/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 doesn’t like single quotes in commands. Try using double quotes in the command, using qq{} escaping. Just change one line:

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