Как я могу получить доступ к миниатюре JavaScript Closure, используя Perl LWP :: UserAgent? - PullRequest
Новая
       21

Как я могу получить доступ к миниатюре JavaScript Closure, используя Perl LWP :: UserAgent?

0 голосов
/ 14 августа 2010

Я пытаюсь заставить работать Code Closure, но, к сожалению, всегда выдается ошибка.

Вот код: 

use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Response;

my $name = 'test.js';
my $agent = new LWP::UserAgent();
$agent->agent("curl/7.21.0 (x86_64-pc-linux-gnu) libcurl/7.21.0 OpenSSL/0.9.8o zlib/1.2.3.4 libidn/1.18");

$res = $agent->request(POST 'http://closure-compiler.appspot.com/compile',
           content_type => 'multipart/form-data',
           content      => [
                   output_info => 'compiled_code',
                           compilation_level => 'SIMPLE_OPTIMIZATIONS',
                   output_format => 'text',
                   js_code => [File::Spec->rel2abs($name)]
                       ]);

if ($res->is_success) {
    $minified = $res->decoded_content;
    print $minified;die;
}

Я получаю следующую ошибку:

Ошибка (13): нет выходной информации для создания, но сборка была запрошена.

Вот ссылка на API, которую я использовал: http://code.google.com/intl/de-DE/closure/compiler/docs/api-ref.html

Надеюсь, кто-нибудьзнает, что здесь происходит не так.Спасибо.

Ответы [ 2 ]

2 голосов
/ 14 августа 2010 
#!/usr/bin/perl

use strict; use warnings;

use File::Slurp;
use LWP::UserAgent;

my $agent = LWP::UserAgent->new;
my $script = 'test.js';

my $response = $agent->post(
    'http://closure-compiler.appspot.com/compile',
    content_type => 'application/x-www-form-urlencoded',
    content => [
        compilation_level => 'SIMPLE_OPTIMIZATIONS',
        output_info => 'compiled_code',
        output_format => 'text',
        js_code => scalar read_file($script),
    ],
);

if ($response->is_success) {
    my $minified = $response->decoded_content;
    print $minified;
}

Выход: 

C:\Temp> cat test.js
// ADD YOUR CODE HERE
function hello(name) {
  alert('Hello, ' + name);
}
hello('New user');



C:\Temp> t
function hello(a){alert("Hello, "+a)}hello("New user");
1 голос
/ 14 августа 2010

Передайте как js_code фактический код для компиляции.Попробуйте (удалив заголовок form-data content_type): 

use File::Slurp "read_file";
...
     js_code => scalar( read_file($name) ),

Я вижу, вы пытаетесь использовать функцию загрузки файлов POST;Что в документации API вы видите, что заставляет вас думать, что это будет работать?Если там что-то есть, я этого не вижу.

...