调度Perl脚本

假设您没有从代码中删除路径,并且没有在目录中指定起始位置,请为输出文件提供完整的路径, 例如 ,

open OUTPUT, ">>J:/Project/Reports/output.txt"
  or die "$0: open: $!";

你应该做两件事:

1. 指定程序中的路径
2. 确保计划程序对该文件的权限是可写的

代码:

#!/usr/bin/perl -w

use LWP::Simple;
use strict;                                           # make sure you write good code

   my $now_string = localtime;

   my $html = get("http://www.spc.noaa.gov/climo/reports/last3hours.html")
              or die "Could not fetch NWS page.";
   my ($hail) = $html =~ m{(Hail Reports.*)Wind Reports}s or die;  # combine your lines in one

   my $file = "C:\Path\output.txt";                   # use full qualified path
   open OUTPUT, ">>$file";
      print OUTPUT ("\n\t$now_string\n$hail\n");
   close OUTPUT;

   print "$hail\n";