Changeset 192
- Timestamp:
- 04/18/08 14:36:07
- Files:
-
- scout/trunk/GetLatestData.pl (added)
- scout/trunk/URLList.xml (added)
- scout/trunk/get_latest_listing.pl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
scout/trunk/get_latest_listing.pl
r1 r192 11 11 # (1) Screen scrape http index listing sent by server for all HREF data 12 12 # (2) further limit it by glob 13 13 use strict; 14 14 # if debugging requested print messages to STDOUT 15 my $debug; 15 16 if (grep /[debug|DEBUG|d]/, @ARGV) { 16 17 $debug = 0; … … 18 19 19 20 # add libraries needed for this function 20 use POSIX qw(strftime);21 #use POSIX qw(strftime); 21 22 22 23 # 23 $now = strftime("%Y:%m:%d %H:%M:%S",gmtime);24 if ($debug) { print "\n==== Starting: $now UTC ==== Perl Version: $]\n"; }24 #$now = strftime("%Y:%m:%d %H:%M:%S",gmtime); 25 #if ($debug) { print "\n==== Starting: $now UTC ==== Perl Version: $]\n"; } 25 26 26 $dods_url = $this_dods_url; 27 $dir_url = $this_dir_url; 27 my $dods_url = $this_dods_url; 28 my $dir_url = $this_dir_url; 29 print( "dir_url: $dir_url"); 30 #changed from latest.nc to old.nc 31 $common = "latest.nc|old.nc|OVW-QS-NRT-SECOOS102-.*.nc|Tot_PWSS.*"; 28 32 29 $common = "latest.nc|OVW-QS-NRT-SECOOS102-.*.nc|Tot_PWSS.*";33 #$common = "latest.nc|OVW-QS-NRT-SECOOS102-.*.nc|Tot_PWSS.*"; 30 34 31 35 # @latest = get_index_match($dods_url, $common); … … 69 73 # (0) Get html document 70 74 $doc = get($path); 71 75 print( "get_index_match::Doc: $doc\n" ); 72 76 # some other possible html scrapes 73 77 # @all_href = $doc =~ m{href=(.*?)>}gi;
