Livedoor Reader RSS�ｿｽo�ｿｽ^�ｿｽﾒ撰ｿｽ�ｿｽﾌ取得

�ｿｽT�ｿｽ�ｿｽ�ｿｽv�ｿｽ�ｿｽ�ｿｽR�ｿｽ[�ｿｽh

Perl�ｿｽﾅのサ�ｿｽ�ｿｽ�ｿｽv�ｿｽ�ｿｽ�ｿｽR�ｿｽ[�ｿｽh�ｿｽﾅゑｿｽ�ｿｽB Livedoor Reader�ｿｽ�ｿｽRSS�ｿｽﾌ更�ｿｽV�ｿｽ�ｿｽ�ｿｽm�ｿｽF�ｿｽ�ｿｽ�ｿｽﾉ暦ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽO�ｿｽ�ｿｽ�ｿｽ�ｿｽA�ｿｽw�ｿｽﾇ者撰ｿｽ�ｿｽ�抽出�ｿｽ�ｿｽ�ｿｽﾄゑｿｽ�ｿｽﾜゑｿｽ�ｿｽB

#!/usr/bin/perl

open(LOGFILE, "access_log.txt") || die $!;

while (<LOGFILE>) {
  /^([^ ]*) ([^ ]*) ([^ ]*) \[([^\]]*)\] "([^"]*)" ([^ ]*) ([^ ]*) "([^"]*)" "([^"]*)"/;

  $remotehost = $1;
  $fromidentd = $2;
  $remoteuser = $3;
  $datetime = $4;
  $httprequest = $5;
  $httpstatus = $6;
  $databytes = $7;
  $refer = $8;
  $useragent = $9;

  if ($useragent =~ /^livedoor FeedFetcher/) {
    if ($useragent =~ /; ([^ ]*) subscribers\)/) {
      $subscribers = $1;
      print "subscribers=" . $subscribers . "\n";
    }
  }
}

close(LOGFILE);

exit;

�ｿｽ�ｿｽ�ｿｽO�ｿｽ�ｿｽ�ｿｽﾌエ�ｿｽ�ｿｽ�ｿｽg�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾉ登�ｿｽ^�ｿｽﾒ撰ｿｽ�ｿｽ�ｿｽ�ｿｽﾏ会ｿｽ�ｿｽ�ｿｽ�ｿｽﾄゑｿｽ�ｿｽ�ｿｽﾂ能�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌで抵ｿｽ�ｿｽﾓゑｿｽ�ｿｽﾄ会ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽB �ｿｽﾜゑｿｽ�ｿｽA�ｿｽ�ｿｽﾂの��ｿｽ�ｿｽO�ｿｽ�ｿｽ�ｿｽﾉ包ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽRSS URL�ｿｽ�ｿｽ�ｿｽﾜまゑｿｽﾄゑｿｽ�ｿｽ�ｿｽ鼾��ｿｽA�ｿｽ�ｿｽL�ｿｽT�ｿｽ�ｿｽ�ｿｽv�ｿｽ�ｿｽ�ｿｽﾅは搾ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾄ表�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾄゑｿｽ�ｿｽﾜゑｿｽ�ｿｽﾜゑｿｽ�ｿｽB �ｿｽK�ｿｽv�ｿｽﾉ会ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽRSS�ｿｽ�ｿｽURL�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽp�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾍゑｿｽ�ｿｽs�ｿｽ�ｿｽ�ｿｽﾄゑｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽB

�ｿｽA�ｿｽN�ｿｽZ�ｿｽX�ｿｽ�ｿｽ�ｿｽO�ｿｽ�ｿｽﾍの具ｿｽ�ｿｽﾈ擾ｿｽ	Analog�ｿｽ\Web�ｿｽA�ｿｽN�ｿｽZ�ｿｽX�ｿｽ�ｿｽ�ｿｽO�ｿｽﾌ搾ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾍソ�ｿｽt�ｿｽg	�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾅでゑｿｽ�ｿｽ�ｿｽWeb�ｿｽA�ｿｽN�ｿｽZ�ｿｽX�ｿｽ�ｿｽﾍとデ�ｿｽ[�ｿｽ^�ｿｽ�ｿｽ�ｿｽp�ｿｽp	Web�ｿｽ�ｿｽ�ｿｽHacks �ｿｽ\�ｿｽI�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽC�ｿｽ�ｿｽ�ｿｽr�ｿｽW�ｿｽl�ｿｽX�ｿｽﾅ最托ｿｽﾌ鯉ｿｽ�ｿｽﾊゑｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽe�ｿｽN�ｿｽj�ｿｽb�ｿｽN & �ｿｽc�ｿｽ[�ｿｽ�ｿｽ