<DIV>
<DIV>
<DIV>Olá pessoal,</DIV>
<DIV> </DIV>
<DIV>Meu mail teve problemas, se esta mensagem foi enviada duas vezes,</DIV>
<DIV>me desculpe.<BR><BR>meu problema é o seguinte. Como enviar um arquivo.zip via http::request para outro sevidor.<BR></DIV>
<DIV>No meu caso eu <U>não estou</U> recebendo um arquivo via http. Eu tenho é que</DIV>
<DIV>enviar para outro servidor.</DIV>
<DIV> </DIV>
<DIV>EX:</DIV>
<DIV>...</DIV>
<DIV>my $url = "CAMPO1=<ARQUIVO.ZIP>&campo2=1234&campo3=abc&....";<BR>my $http = "http://192.1.1.1/cgi-bin/GERAR-CGI?$url";<BR>my $req = new HTTP::Request 'POST' => "$http";<BR>$res = $ua->request($req); <BR>print "Resultado: " . $res->content; <BR></DIV>
<DIV> </DIV>
<DIV>A questão é se o arquivo tem que passar por um processo de transformação</DIV>
<DIV>(transformar em uma linha binária, ...) antes de enviar para o http.</DIV>
<DIV>Do modo que eu estou demonstrando, não vai funcionar, pois o http que vai receber não vai entender que é um arquivo binário (multipart/form-data). Então como tem que ser feito?</DIV></DIV></DIV><p>
                <hr size=1>
Yahoo! Acesso Grátis: Internet rápida e grátis.<br><a href="http://us.rd.yahoo.com/mail/br/tagline/discador/*http://br.acesso.yahoo.com/">Instale o discador agora!</a><p>
                <hr size=1>
Yahoo! Acesso Grátis: Internet rápida e grátis.<br><a href="http://us.rd.yahoo.com/mail/br/tagline/discador/*http://br.acesso.yahoo.com/">Instale o discador agora!</a>