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
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.006 segundos, usando GeSHi 1.0.8.4
