【自家製】MythTV Part.3【HDDビデオ】at LINUX【自家製】MythTV Part.3【HDDビデオ】 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト550:394 11/05/25 22:13:03.31 oiZ5FRoi.net # utf8::encode($t); # Text::Kakasi::getopt_argv('kakasi', ' -iutf8','-oeuc', '-JH', '-KH', '-aE'); # from_to($t, "utf8", "euc-jp"); # convert to EUC my $readstr = ''; # if ($t ne '') { # $readstr=Text::Kakasi::do_kakasi($t); # from_to($readstr, "euc-jp", "utf8"); # convert to UTF-8 # } # Text::Kakasi::close_kanwadict(); $readstr=$title; 551:548 11/05/25 23:05:18.61 gkYnJ7Jk.net >394 >547 を参考に変更して動くようになったよ。 ありがとう。 助かった。 552:login:Penguin 11/05/26 03:01:33.96 +Uo5Rzaz.net 大量のエラーだが多分これで直る。 352 # Options to be used for XMLTV::Writer. 353 my %w_args; 354 binmode STDOUT, ":utf8"; # <= 追加 355 if (defined $opt_output) { 356 my $fh = new IO::File(">$opt_output"); 357 die "cannot write to $opt_output: $!" if not defined $fh; 358 binmode $fh, ":utf8"; # <= 追加 359 $w_args{OUTPUT} = $fh; 360 } 361 $w_args{encoding} = 'UTF-8'; 362 my $writer = new XMLTV::Writer(%w_args); 363 $writer->start($HEAD); 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch