Satomi's Whiteboard

ソースファイル

• GitWeb で最新版をみる foltia-dl.pl

動作要件

• （当然ながら）foltia ANIME LOCKER が動作しているサーバにHTTPアクセスが可能なこと。
• （本ツールを動かすマシンに）perl がインストールされていること。
• （本ツールを動かすマシンに）ffmpeg がインストールされていること。.mp4 ファイルへメタデータを付加するために使用します。

実行方法の例

(例１) $ foltia-dl.pl | bash

(例２) $ foltia-dl.pl --grep 'きょうの(料理|健康)' | bash

(例３) $ foltia-dl.pl --tsv

(例４) $ foltia-dl.pl --tsv --grep '御宿かわせみ' > kawasemi.txt

詳細な使い方

  foltia-dl.pl [--tsv] [--grep <title_regexp_string>]

ソース中の要変更箇所

#!/usr/bin/env perl

use strict;
use warnings;

use HTTP::Tiny;


our $FOLTIA_HOST = 'http://localhost:80';

get_reservation_table('/reservation/');
exit;



sub get_reservation_table {
    my ($path) = @_;
    my $resp   = HTTP::Tiny->new->get($FOLTIA_HOST. $path);
    
    if ($resp->{success}) {
        my $body = $resp->{content};
        while ($body =~ m|<tr.+?</tr>|sg) {
            my $rec = $&;
            $rec =~ s/<br>|\n|\r//g;
            my ($id)      = $rec =~ m|id="(-\d+)"|;
            next unless $id;
            
            my ($station) = $rec =~ m|<td class="station">(.+?)</td>|;
            my ($date)    = $rec =~ m|<td class="date">(.+?)</td>|;
            my ($title)   = $rec =~ m|<td>(.+?)</td>|;
            die "放送局・日時・番組名が取得できませんでした. rec=$rec" unless $station && $date && $title;
    
            print "$id $date $station $title\n" if check_overwrap($id);;
        }
        
        get_reservation_table($1) if $body =~ m|<a rel=next href="(.+?)" >|;
        
    } else {
        die "予約一覧が取得できませんでした. get=$FOLTIA_HOST$path";
    }

}



sub check_overwrap {
    my ($id) = @_;
    
    my $api_url = "${FOLTIA_HOST}/reservation/reservation_overwrap_chk_api.php?p=$id";

    my $resp = HTTP::Tiny->new->get($api_url);
    
    if ($resp->{success}) {
        my $body = $resp->{content};
        if(  my ($overwrap) = $body =~ /"overwrap":"(.*?)"/  ) {
            return $overwrap;
            
        } else {
            die "overwrap 文字列が取得できませんでした. api_url=$api_url";
        }
        
    } else {
        die "overwrap が取得できませんでした. api_url=$api_url";
    }

}

bash -c "echo -ne '\033]0;'\"TITLEタイトル\"'\a'; sleep 10 ; exit"

• 参考・謝辞
  • 5分くらいでWindows TerminalへのGit Bashの追加から日本語文字化けを直すまでの流れ を参考にさせていただきました。

<If "%{QUERY_STRING} =~ /;a=blob_plain;/i">
    Header set Content-Type 'text/plain; charset=utf-8'
</If>

ソースファイル

• GitWeb で最新版をみる

動作要件

• Linux など
• perl 次のモジュールが使用可能なこと
  • HTTP::Tiny
  • HTML::Entities
  • XML::XPath
  • XML::XPath::XMLParser
• ffmpeg が単独で正常に動作していること（パスの通っている場所に配置してください）
• at (ジョブの遅延実行とバッチ処理) がインストールされていること。

実行方法の例

$ rec-nhk-radio.pl [ -c | --check | --verbose ] [--offset-time <開始オフセット(秒)>] [--end-margin  <後方余白(秒)>] <放送局ID> [<録音開始日>] <録音開始時刻> [<録音長(分)> <タイトル>]

export RADIKO_SAVE_TO=/var/radiko/save/to

放送局ID

2025-10-05

2025-08-03

2024-09-11対策済み: at の落とし穴 (?) セット時のカレントディレクトリがなくなってしまったときの問題

cd /home/*****/aaaaa/bbbbb || {
         echo 'Execution directory inaccessible' >&2
         exit 1
}