admin/Monthly-News/get_CHdate.pl

   1 #! /usr/bin/perl
   2
   3 # Ã±¤Ë Configure.help ¤ÎºÇ½ª¹¹¿·»þ¹ï¤ò¼è¤ê½Ð¤·¤¿¤¤¤À¤±¤Ê¤ó¤Ç¤¹¤¬¡£
   4
   5 $lynx = "/usr/local/bin/lynx -source";
   6 $url  = "http://www.linux.or.jp/JF/JFdocs/Configure.help/";
   7 open(L,"$lynx $url |") or die;
   8 my $cp = 0;
   9 my $date;
  10
  11 while (<L>) {
  12   if (/^ <DIV CLASS=\"copyright\">$/) {
  13     $cp = 1;
  14     next;
  15   }
  16   if ($cp) {
  17     chomp;
  18     s/^ +//;
  19     $date = $_;
  20     last;
  21   }
  22 }
  23 close L;
  24 print "$date";