#!/usr/bin/perl -w ################################################################# # Perl Script to retrieve 208 online Data files of 'ds083.2', # total 4.27G. This script uses 'wget' to download data. # # Highlight this script by Select All, Copy and Paste it into a file; # make the file executable and run it on command line. # # You need pass in your password as a parameter to execute # this script; or you can set an evnironment variable RDAPSWD # if your Operating System supports it. # # Contact schuster@ucar.edu (Doug Schuster) for further assistance. ################################################################# use strict; my ($syscmd, $vn, $opt, $i, @filelist); my $pswd = (@ARGV ? $ARGV[0] : $ENV{RDAPSWD}); if(!$pswd) { print "\n Usage: $0 YourPassword\n\n"; exit 1; } open VN, "wget -V |" or die 'cannot find wget'; $vn = ( =~ /^GNU Wget (\d+)\.(\d+)/) ? (100 * $1 + $2) : 109; close(VN); $syscmd = ($vn > 109 ? 'wget --no-check-certificate' : 'wget'); $syscmd .= ' -O /dev/null --save-cookies auth.dss_ucar_edu --post-data' . "='email=pkubota\@cptec.inpe.br&passwd=$pswd&action=login' " . 'https://dss.ucar.edu/cgi-bin/login'; system($syscmd); $opt = 'wget -N'; $opt .= ' --no-check-certificate' if($vn > 109); $opt .= ' --load-cookies auth.dss_ucar_edu ' . 'http://dss.ucar.edu/dsszone/ds083.2/'; @filelist = ( "grib1/1999/1999.08/fnl_19990801_00_00", "grib1/1999/1999.08/fnl_19990801_06_00", "grib1/1999/1999.08/fnl_19990801_12_00", "grib1/1999/1999.08/fnl_19990801_18_00", "grib1/1999/1999.08/fnl_19990802_00_00", "grib1/1999/1999.08/fnl_19990802_06_00", "grib1/1999/1999.08/fnl_19990802_12_00", "grib1/1999/1999.08/fnl_19990802_18_00", "grib1/1999/1999.08/fnl_19990803_00_00", "grib1/1999/1999.08/fnl_19990803_06_00", "grib1/1999/1999.08/fnl_19990803_12_00", "grib1/1999/1999.08/fnl_19990803_18_00", "grib1/1999/1999.08/fnl_19990804_00_00", "grib1/1999/1999.08/fnl_19990804_06_00", "grib1/1999/1999.08/fnl_19990804_12_00", "grib1/1999/1999.08/fnl_19990804_18_00", "grib1/1999/1999.08/fnl_19990805_00_00", "grib1/1999/1999.08/fnl_19990805_06_00", "grib1/1999/1999.08/fnl_19990805_12_00", "grib1/1999/1999.08/fnl_19990805_18_00", "grib1/1999/1999.08/fnl_19990806_00_00", "grib1/1999/1999.08/fnl_19990806_06_00", "grib1/1999/1999.08/fnl_19990806_12_00", "grib1/1999/1999.08/fnl_19990806_18_00", "grib1/1999/1999.08/fnl_19990807_00_00", "grib1/1999/1999.08/fnl_19990807_06_00", "grib1/1999/1999.08/fnl_19990807_12_00", "grib1/1999/1999.08/fnl_19990807_18_00", "grib1/1999/1999.08/fnl_19990808_00_00", "grib1/1999/1999.08/fnl_19990808_06_00", "grib1/1999/1999.08/fnl_19990808_12_00", "grib1/1999/1999.08/fnl_19990808_18_00", "grib1/1999/1999.08/fnl_19990809_00_00", "grib1/1999/1999.08/fnl_19990809_06_00", "grib1/1999/1999.08/fnl_19990809_12_00", "grib1/1999/1999.08/fnl_19990809_18_00", "grib1/1999/1999.08/fnl_19990810_00_00", "grib1/1999/1999.08/fnl_19990810_06_00", "grib1/1999/1999.08/fnl_19990810_12_00", "grib1/1999/1999.08/fnl_19990810_18_00", "grib1/1999/1999.08/fnl_19990811_00_00", "grib1/1999/1999.08/fnl_19990811_06_00", "grib1/1999/1999.08/fnl_19990811_12_00", "grib1/1999/1999.08/fnl_19990811_18_00", "grib1/1999/1999.08/fnl_19990812_00_00", "grib1/1999/1999.08/fnl_19990812_06_00", "grib1/1999/1999.08/fnl_19990812_12_00", "grib1/1999/1999.08/fnl_19990812_18_00", "grib1/1999/1999.08/fnl_19990813_00_00", "grib1/1999/1999.08/fnl_19990813_06_00", "grib1/1999/1999.08/fnl_19990813_12_00", "grib1/1999/1999.08/fnl_19990813_18_00", "grib1/1999/1999.08/fnl_19990814_00_00", "grib1/1999/1999.08/fnl_19990814_12_00", "grib1/1999/1999.08/fnl_19990814_18_00", "grib1/1999/1999.08/fnl_19990815_00_00", "grib1/1999/1999.08/fnl_19990815_06_00", "grib1/1999/1999.08/fnl_19990815_12_00", "grib1/1999/1999.08/fnl_19990815_18_00", "grib1/1999/1999.08/fnl_19990816_00_00", "grib1/1999/1999.08/fnl_19990816_06_00", "grib1/1999/1999.08/fnl_19990816_12_00", "grib1/1999/1999.08/fnl_19990816_18_00", "grib1/1999/1999.08/fnl_19990817_00_00", "grib1/1999/1999.08/fnl_19990817_06_00", "grib1/1999/1999.08/fnl_19990817_12_00", "grib1/1999/1999.08/fnl_19990817_18_00", "grib1/1999/1999.08/fnl_19990818_00_00", "grib1/1999/1999.08/fnl_19990818_06_00", "grib1/1999/1999.08/fnl_19990818_12_00", "grib1/1999/1999.08/fnl_19990818_18_00", "grib1/1999/1999.08/fnl_19990819_00_00", "grib1/1999/1999.08/fnl_19990819_06_00", "grib1/1999/1999.08/fnl_19990819_12_00", "grib1/1999/1999.08/fnl_19990819_18_00", "grib1/1999/1999.08/fnl_19990820_00_00", "grib1/1999/1999.08/fnl_19990820_06_00", "grib1/1999/1999.08/fnl_19990820_12_00", "grib1/1999/1999.08/fnl_19990820_18_00", "grib1/1999/1999.08/fnl_19990821_00_00", "grib1/1999/1999.08/fnl_19990821_06_00", "grib1/1999/1999.08/fnl_19990821_12_00", "grib1/1999/1999.08/fnl_19990821_18_00", "grib1/1999/1999.08/fnl_19990822_00_00", "grib1/1999/1999.08/fnl_19990822_06_00", "grib1/1999/1999.08/fnl_19990822_12_00", "grib1/1999/1999.08/fnl_19990822_18_00", "grib1/1999/1999.08/fnl_19990823_00_00", "grib1/1999/1999.08/fnl_19990823_06_00", "grib1/1999/1999.08/fnl_19990823_12_00", "grib1/1999/1999.08/fnl_19990823_18_00", "grib1/1999/1999.08/fnl_19990824_00_00", "grib1/1999/1999.08/fnl_19990824_06_00", "grib1/1999/1999.08/fnl_19990824_12_00", "grib1/1999/1999.08/fnl_19990824_18_00", "grib1/1999/1999.08/fnl_19990825_00_00", "grib1/1999/1999.08/fnl_19990825_06_00", "grib1/1999/1999.08/fnl_19990825_12_00", "grib1/1999/1999.08/fnl_19990825_18_00", "grib1/1999/1999.08/fnl_19990826_00_00", "grib1/1999/1999.08/fnl_19990826_06_00", "grib1/1999/1999.08/fnl_19990826_12_00", "grib1/1999/1999.08/fnl_19990826_18_00", "grib1/1999/1999.08/fnl_19990827_00_00", "grib1/1999/1999.08/fnl_19990827_06_00", "grib1/1999/1999.08/fnl_19990827_12_00", "grib1/1999/1999.08/fnl_19990827_18_00", "grib1/1999/1999.08/fnl_19990828_00_00", "grib1/1999/1999.08/fnl_19990828_06_00", "grib1/1999/1999.08/fnl_19990828_12_00", "grib1/1999/1999.08/fnl_19990828_18_00", "grib1/1999/1999.08/fnl_19990830_00_00", "grib1/1999/1999.08/fnl_19990830_06_00", "grib1/1999/1999.08/fnl_19990830_12_00", "grib1/1999/1999.08/fnl_19990830_18_00", "grib1/1999/1999.08/fnl_19990831_00_00", "grib1/1999/1999.08/fnl_19990831_06_00", "grib1/1999/1999.08/fnl_19990831_12_00", "grib1/1999/1999.08/fnl_19990831_18_00", "grib1/1999/1999.09/fnl_19990901_00_00", "grib1/1999/1999.09/fnl_19990901_06_00", "grib1/1999/1999.09/fnl_19990901_12_00", "grib1/1999/1999.09/fnl_19990901_18_00", "grib1/1999/1999.09/fnl_19990902_00_00", "grib1/1999/1999.09/fnl_19990902_06_00", "grib1/1999/1999.09/fnl_19990902_12_00", "grib1/1999/1999.09/fnl_19990902_18_00", "grib1/1999/1999.09/fnl_19990903_00_00", "grib1/1999/1999.09/fnl_19990910_00_00", "grib1/1999/1999.09/fnl_19990910_06_00", "grib1/1999/1999.09/fnl_19990910_12_00", "grib1/1999/1999.09/fnl_19990911_06_00", "grib1/1999/1999.09/fnl_19990911_12_00", "grib1/1999/1999.09/fnl_19990911_18_00", "grib1/1999/1999.09/fnl_19990912_00_00", "grib1/1999/1999.09/fnl_19990912_12_00", "grib1/1999/1999.09/fnl_19990912_18_00", "grib1/1999/1999.09/fnl_19990913_00_00", "grib1/1999/1999.09/fnl_19990913_06_00", "grib1/1999/1999.09/fnl_19990913_12_00", "grib1/1999/1999.09/fnl_19990913_18_00", "grib1/1999/1999.09/fnl_19990914_00_00", "grib1/1999/1999.09/fnl_19990914_06_00", "grib1/1999/1999.09/fnl_19990914_12_00", "grib1/1999/1999.09/fnl_19990914_18_00", "grib1/1999/1999.09/fnl_19990915_00_00", "grib1/1999/1999.09/fnl_19990915_06_00", "grib1/1999/1999.09/fnl_19990915_12_00", "grib1/1999/1999.09/fnl_19990915_18_00", "grib1/1999/1999.09/fnl_19990916_00_00", "grib1/1999/1999.09/fnl_19990916_06_00", "grib1/1999/1999.09/fnl_19990916_12_00", "grib1/1999/1999.09/fnl_19990916_18_00", "grib1/1999/1999.09/fnl_19990917_00_00", "grib1/1999/1999.09/fnl_19990917_06_00", "grib1/1999/1999.09/fnl_19990917_12_00", "grib1/1999/1999.09/fnl_19990917_18_00", "grib1/1999/1999.09/fnl_19990918_00_00", "grib1/1999/1999.09/fnl_19990918_06_00", "grib1/1999/1999.09/fnl_19990918_12_00", "grib1/1999/1999.09/fnl_19990918_18_00", "grib1/1999/1999.09/fnl_19990919_00_00", "grib1/1999/1999.09/fnl_19990919_06_00", "grib1/1999/1999.09/fnl_19990919_12_00", "grib1/1999/1999.09/fnl_19990919_18_00", "grib1/1999/1999.09/fnl_19990920_00_00", "grib1/1999/1999.09/fnl_19990920_06_00", "grib1/1999/1999.09/fnl_19990920_12_00", "grib1/1999/1999.09/fnl_19990920_18_00", "grib1/1999/1999.09/fnl_19990921_00_00", "grib1/1999/1999.09/fnl_19990921_06_00", "grib1/1999/1999.09/fnl_19990921_12_00", "grib1/1999/1999.09/fnl_19990921_18_00", "grib1/1999/1999.09/fnl_19990922_00_00", "grib1/1999/1999.09/fnl_19990922_06_00", "grib1/1999/1999.09/fnl_19990922_12_00", "grib1/1999/1999.09/fnl_19990922_18_00", "grib1/1999/1999.09/fnl_19990923_00_00", "grib1/1999/1999.09/fnl_19990923_06_00", "grib1/1999/1999.09/fnl_19990923_12_00", "grib1/1999/1999.09/fnl_19990923_18_00", "grib1/1999/1999.09/fnl_19990924_00_00", "grib1/1999/1999.09/fnl_19990924_06_00", "grib1/1999/1999.09/fnl_19990924_12_00", "grib1/1999/1999.09/fnl_19990924_18_00", "grib1/1999/1999.09/fnl_19990925_00_00", "grib1/1999/1999.09/fnl_19990925_06_00", "grib1/1999/1999.09/fnl_19990925_12_00", "grib1/1999/1999.09/fnl_19990925_18_00", "grib1/1999/1999.09/fnl_19990926_00_00", "grib1/1999/1999.09/fnl_19990926_06_00", "grib1/1999/1999.09/fnl_19990926_12_00", "grib1/1999/1999.09/fnl_19990926_18_00", "grib1/1999/1999.09/fnl_19990927_00_00", "grib1/1999/1999.09/fnl_19990927_06_00", "grib1/1999/1999.09/fnl_19990927_12_00", "grib1/1999/1999.09/fnl_19990927_18_00", "grib1/1999/1999.09/fnl_19990928_00_00", "grib1/1999/1999.09/fnl_19990928_06_00", "grib1/1999/1999.09/fnl_19990928_12_00", "grib1/1999/1999.09/fnl_19990928_18_00", "grib1/1999/1999.09/fnl_19990929_00_00", "grib1/1999/1999.09/fnl_19990929_06_00", "grib1/1999/1999.09/fnl_19990929_12_00", "grib1/1999/1999.09/fnl_19990929_18_00", "grib1/1999/1999.09/fnl_19990930_00_00", "grib1/1999/1999.09/fnl_19990930_06_00", "grib1/1999/1999.09/fnl_19990930_12_00", ); for($i = 0; $i < @filelist; $i++) { $syscmd = $opt . $filelist[$i]; print "$syscmd...\n"; system($syscmd); } system('rm -f auth.dss_ucar_edu'); exit 0;