Foro - Perl en Español

por **enric73** » 2012-05-14 11:55 @538

Hola, buenas tardes, perleros,

Una consulta relacionada con acceso a Internet.

Resulta que hasta ahora podía acceder a descargarme archivos desde una máquina sin problemas, pero ahora necesito hacerlo utilizando el proxy, definiendo una variable de entorno: export http_proxy=cache.local:3128.

Lo he probado en el siguiente script para que me baje los ficheros gfs de la NOAA, pero no me chuta. También he utilizado --proxy cache.local:3128 dentro de my $host = 'http://nomads.ncep.noaa.gov'; pero no me descarga... ¿Pueden ayudarme? Gracias

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
# ************************************************************************** #
# Script per baixar els fitxers GFS per dominis                              #
# ************************************************************************** #
#!/usr/bin/env perl
use v5.10;
use URI::Escape;
use LWP::Simple;
use DateTime;
 
$Gribs_gfs = '/home/enric/Desktop/';
$Scripts   = '/home/enric/opt/scripts';
 
my $date = DateTime->now->ymd("");
 
mkdir("$Gribs_gfs/${date}00") or warn $!;
 
escriu("Creant carpeta per deixar els fitxers GFS");
 
$data           = '00';
$interval_hours = 3;
 
for my $i ( 0 .. 4 ) {
 
    $_ = sprintf "gfs.t00z.pgrbf%02d.grib2", $i * 3;
    $Gribs_Date = "$Gribs_gfs/${date}00/mygrib$data";
    my $host = 'http://nomads.ncep.noaa.gov';
    my $cgi  = 'cgi-bin/filter_gfs.pl';
    my %args = (
 
        file                  => $_,
        lev_10_m_above_ground => 'on',
        var_UGRD              => 'on',
        var_VGRD              => 'on',
        subregion             => '',
        leftlon               => 10,
        rightlon              => 20,
        toplat                => 25,
        bottomlat             => 15,
        dir                   => "/gfs.${date}00",
    );
 
    my $URL = "$host/$cgi" . '?' . join "&", map { $_ . '=' . uri_escape( $args{$_} ) } keys %args;
 
    say "[$URL]";
 
    mirror( $URL, $Gribs_Date );
 
    $data = sprintf "%02d", $data + $interval_hours;
}
 
{
    $Gribs = "$Gribs_gfs/${date}00";
    chdir("$Gribs");
    print "$Gribs";
    $dates_dat  = '/home/enric/Desktop';
    $Dadesdiari = "$dates_dat/${date}00";
 
    $data = '00';
 
    $interval_hours = 3;
 
    for my $i ( 0 .. 4 ) {
 
        $_ = sprintf "mygrib%02d", $i * 3;
 
        @args = ("wgrib2 $_ -s | grep ':VGRD:10 m above ground' |wgrib2 -i $_ -text $Dadesdiari/VGRD10m$data.dat ");
        system(@args) == 0 or die "system @args failed: $?";
        @args = ("wgrib2 $_ -s| grep ':UGRD:10 m above ground' | wgrib2 -i $_ -text $Dadesdiari/UGRD10m$data.dat ");
        system(@args) == 0 or die "system @args failed: $?";
 
        escriu("arxius dat generats");
 
        $data = sprintf( "%02d", $data + $interval_hours );
    }
 
}
@args = ("$Scripts/vent.pl ${date}00 > $Scripts/vent.dat");
escriu("@args");
system(@args) == 0 or die $!;
 
sub escriu {
    my @missatge = @_;
    chomp( my $hora = `date |awk '{print \$4}'` );
    print "----->  $hora @missatge\n";
}
 
Coloreado en 0.007 segundos,  usando GeSHi 1.0.8.4

use HTTP::Proxy;
 
    # initialisation
    my $proxy = HTTP::Proxy->new( port => 3128 );
 
    # alternate initialisation
    my $proxy = HTTP::Proxy->new;
    $proxy->port( 3128 ); # the classical accessors are here!
 
    # this is a MainLoop-like method
    $proxy->start;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Puede que esto funcione, ¿no?

por **explorer** » 2012-05-14 12:48 @575

Una forma sería colocar una línea así

$ENV{'HTTP_PROXY'}='http://cache.local:3128/';

al principio del programa (es también lo mismo si en el shell, haces un export a HTTP_PROXY).

Otra forma sería modificar el LWP::UserAgent para que use ese valor como proxy:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use LWP::Simple qw($ua get);
$ua->proxy('http','http://cache.local:3128');
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

HTTP::Proxy hace el proceso contrario: crea un proxy.

por **enric73** » 2012-05-14 14:00 @625

Gracias explorer,

lo he probado y funciona, gracias de nuevo

saludos

Foro - Perl en Español

export http_proxy

export http_proxy

Publicidad

Re: export http_proxy

Re: export http_proxy

Re: export http_proxy

¿Quién está conectado?