09/02/08 19:22:28 3vpfAvZW
>>98
おおきに。助かりました。
だけど、こちらの環境では、取得の成功率が非常に低かった。
試行錯誤の結果、
以下のように、URLのアドレスに追加が必要でしたな。
perlの引数は以前からあった問題の対処ね。
$ diff -u /usr/bin/tv_grab_jp{,.org}
--- /usr/bin/tv_grab_jp 2009-02-08 18:56:09.289538300 +0900
+++ /usr/bin/tv_grab_jp.org 2008-10-20 21:49:28.000000000 +0900
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl -w -C
eval 'exec /usr/bin/perl -w -C -S $0 ${1+"$@"}'
if 0; # not running under some shell
@@ -826,7 +826,7 @@
sub get_channel_table {
my ($regionid) = @_;
# request channel data
- my $url = "$urlbase/program/gridChannel.php?tikicd=${regionid}&";
+ my $url = "$urlbase/program/gridChannel.php?tikicd=${regionid}";
my $content = XMLTV::Get_nice::get_nice($url);
return $content;
}