Perl腳本下載文件重命名問題```

tusigi

因為工作需要，使用一個perl腳本，下載noaa的氣象數(shù)據(jù)，但應(yīng)用中需要將文件更名為時間、層序和元素命名的文件，由于以前沒有接觸過perl，求助各位大大！
具體代碼如下：
if ($action ne 'data' && $action ne 'inv') {
   print "action must be inv or data, not $action\n";
   exit(;
}

if ($YYYY < 2006 || $YYYY > 2030) {
   print "bad date (year) code $time\n";
   exit(;
}
if ($MM < 1 || $MM > 12) {
   print "bad date (month) code $time\n";
   exit(;
}
if ($DD < 1 || $DD > 31) {
   print "bad date (day) code $time\n";
   exit(;
}
if ($HH < 0 || $HH > 23) {
   print "bad date (hour) code $time\n";
   exit(;
}
if ($hr0 == $hr1) {
   $dhr = 3;
}

if ($dhr != 3 && $dhr != 6 && $dhr != 12 && $dhr != 24) {
   print "dhr must be 3, 6, 12 or 24, not $dhr\n";
   exit(;
}

if ($hr0 > $hr1) {
   print "hr0 needs to be <= hr1\n";
   exit(;
}
if ($dhr <= 0) {
   print "dhr needs to be > 0\n";
   exit(;
}
if (! -d $OUTDIR && $action ne 'inv') {
   print "Directory $OUTDIR does not exist\n";
   exit(;
}

$VARS =~ tr/:_/| /;
if( $VARS =~ m/ALL/ig ) { $VARS = "."; }
else { $VARS = "$VARS):"; }

$LEVS =~ tr/:_/| /;
if( $LEVS =~ m/ALL/ig ) { $LEVS = "."; }
else { $LEVS = "$LEVS)" ; }

$URL =~ s/\$YYYY/$YYYY/g;
$URL =~ s/\${YYYY}/$YYYY/g;
$URL =~ s/\$MM/$MM/g;
$URL =~ s/\${MM}/$MM/g;
$URL =~ s/\$DD/$DD/g;
$URL =~ s/\${DD}/$DD/g;
$URL =~ s/\$HH/$HH/g;
$URL =~ s/\${HH}/$HH/g;

$output = '';

$fhr=$hr0;
while ($fhr <= $hr1) {
   if ($fhr <= 9) { $fhr="0$fhr"; }
   $fhr3=$fhr;
   if ($fhr <= 99) { $fhr3="0$fhr"; }
   $url = $URL;
   $url =~ s/\$FHR3/$fhr3/g;
   $url =~ s/\${FHR3}/$fhr3/g;
   $url =~ s/\$FHR/$fhr/g;
   $url =~ s/\${FHR}/$fhr/g;
   $file = $url;
   $file =~ s/^.*\///;

   #
   # read the inventory
   #    $line[] = wgrib inventory,  $start[] = start of record (column two of $line[])
   #

   if ($windows eq 'yes') {
      $err = system("$curl -f -s $url$inv -o $OUTDIR/$file.tmp";
      $err = $err >> 8;
      if ($err) {
         print STDERR "error code=$err,  problem reading $url$inv\n";
         sleep(10);
         exit(;
      }
      open (In, "$OUTDIR/$file.tmp";
   }
   else {
      open (In, "$curl -f -s $url$inv |";
   }

   $n=0;
   while (<In> {
      chomp;
      $line[$n] = $_;
      s/^[^:]*://;
      s/:.*//;
      $start[$n] = $_;
      $n++;
   }
   close(In);
   if ($n == 0) {
       print STDERR "roblem reading file $url$inv\n";
       sleep(10);
       exit(8);
   }

   #
   # find end of record: $last[]
   #

   $lastnum = $start[$n-1];
   for ($i = 0; $i < $n; $i++) {
      $num = $start[$i];
      if ($num < $lastnum) {
         $j = $i + 1;
         while ($start[$j] == $num) { $j++; }
         $last[$i] = $start[$j] - 1;
      }
      else {      
         $last[$i] = '';
      }
   }
   
   if ($action eq 'inv') {
      for ($i = 0; $i < $n; $i++) {
         print "$line[$i]:range=$start[$i]-$last[$i]\n";
      }
      exit(0);
   }

   #
   # make the range field for Curl
   #

   $range = '';
   $lastfrom = '';
   $lastto = '-100';
   for ($i = 0; $i < $n; $i++) {
      $_ = $line[$i];
      if (/$LEVS/i && /$VARS/i) {
         $from=$start[$i];
         $to=$last[$i];

         if ($lastto + 1 == $from) {
            $lastto = $to;
         }
         elsif ($lastto ne $to) {
            if ($lastfrom ne '') {
               if ($range eq '') { $range = "$lastfrom-$lastto"; }
               else { $range = "$range,$lastfrom-$lastto"; }
            }
            $lastfrom = $from;
            $lastto = $to;
        }
      }
   }
   if ($lastfrom ne '') {
      if ($range eq '') { $range="$lastfrom-$lastto"; }
      else { $range="$range,$lastfrom-$lastto"; }
   }

   if ($range ne '') {
      $err = system("$curl -f -v -s -r \"$range\" $url$grb -o $OUTDIR/$file.tmp";
      $err = $err >> 8;
      if ($err != 0) {
         print STDERR "error in getting file $err $url$grb\n";
         sleep(20);
         exit $err;
      }
      rename "$OUTDIR/$file.tmp", "$OUTDIR/$file";
      $output = "$output $OUTDIR/$file $VARS";
   }
   else {
      print "no matches (no download) for $file\n";
   }
   $fhr += $dhr;
}
print "\n\nfinished download\n\n$output $VARS\n";
exit(0);

tusigi

lol:lo求大大幫助！

yybmsrs

代碼太長了，有什么困難的直接提出來

104359176

這必須有償求助，免費的求助估計沒有人愿意耗費精力去研究這么長的代碼。

xiaoxingan99

而且看完你的問題，還是沒懂你到底要什么

xiaoxingan99

而且看完你的問題，還是沒懂你到底要什么

tusigi

回復(fù) 3# yybmsrs


    就是想把抓取獲得的無格式文件重命名。

MMMIX

回復(fù) 7# tusigi


    你把那個 rename 的參數(shù)改改不就結(jié)了？

tusigi

改了以后輸入的文件名沒有變，而且成為了有格式的.tmp文件，我是在windows上跑的腳本，難道rename不能用？

回復(fù) 8# MMMIX


   

MMMIX

回復(fù) 9# tusigi


    你這句話中的每個字我都認(rèn)識，可是合起來之后根本不明白你在說啥！