録音対象を radiko から NHK らじる★らじる に変更.

diff --git a/rec-radiko.pl b/rec-nhk-radio.pl
similarity index 85%
rename from rec-radiko.pl
rename to rec-nhk-radio.pl
index 15c38abcacc45d39983e34847bc7444195186119..59523d7af1c571a74c6e005d4336d43416123946 100644 (file)
--- a/rec-radiko.pl
+++ b/rec-nhk-radio.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/env -S perl -w
 
-# 指定時刻に radiko を録音するための at job を発行するツール.
+# 指定時刻に NHK らじる★らじる を録音するための at job を発行するツール.
 #                                (https://satomichan.jp/rec-radiko)
 #
 # 録音には radish (https://github.com/uru2/radish) を利用しています.
@@ -8,7 +8,7 @@
 #
 # 使い方は引数なしで実行すると表示されます.
 #
-# Copyright 2024 FUKUDA Satomi (https://satomichan.jp/)
+# Copyright 2024-2025 FUKUDA Satomi (https://satomichan.jp/)
 # 
 # Licensed under the Apache License, Version 2.0 (the “License”);
 # you may not use this file except in compliance with the License.
@@ -76,10 +76,10 @@ unless (@ARGV) {
        my $script_name = basename($0, '');
        my $usage = << "    EOM_USAGE";
     USAGE) $script_name [-c|--check] [-n|--no-conversion-to-mp3] <放送局ID> <録音開始日> <録音開始時刻> <録音長(分)> <タイトル>
-       ex) $script_name JOAK-FM 2024-08-25 0305 56 shinyabin_taniyama-hiroko
-       ex) $script_name --check JOAK-FM 2024-08-25 3:05 56 shinyabin_taniyama-hiroko
+       ex) $script_name tokyo-fm 2025-05-31 1230 91 scramble_taniyama-hiroko
+       ex) $script_name --check  tokyo-fm 2025-05-31 12:30 91 scramble_taniyama-hiroko
 
-    <放送局ID>は  radi.sh -l | perl -ne 'print if /radiko/../^\$/'  で確認できます.
+    <放送局ID>は  radi.sh -l で確認できます.  ex) tokyo-r1, r2, tokyo-fm
     
     EOM_USAGE
     
@@ -98,14 +98,14 @@ $title =~ s/\s+/_/g;
 die "無効な引数です." unless ($y && $m && $d && $time_h <= 24 && $time_h >= 0 &&
                                $time_m <= 59  && $time_m >= 0  && $min > 0     && length $title);
 
-my $file_name_base = sprintf('%04d-%02d-%02d_%02d%02d_%s_%s', $y, $m, $d, $time_h, $time_m, $station, $title);
+my $file_name_base = sprintf('%04d-%02d-%02d_%02d%02d_nhk-%s_%s', $y, $m, $d, $time_h, $time_m, $station, $title);
 my $m4a = "${file_name_base}.m4a";
 my $mp3 = "${file_name_base}.mp3";
 
 
 
 # コマンド構築
-my $rec_cmd = "cd $ENV{RADIKO_SAVE_TO}; $RADISH -t radiko -s $station -d $min -o $m4a; $CHMOD $FILE_PERMISSION $m4a; ";
+my $rec_cmd = "cd $ENV{RADIKO_SAVE_TO}; $RADISH -t nhk -s $station -d $min -o $m4a; $CHMOD $FILE_PERMISSION $m4a; ";
 if ($is_conv_to_mp3) {
     $rec_cmd .= "$FFMPEG -i $m4a $mp3 &> /dev/null; $SLEEP $SLEEP_TIME_SEC; ".
                 "if [ -s $mp3 ]; then $RM $m4a; $CHMOD $FILE_PERMISSION $mp3; fi";
@@ -126,3 +126,4 @@ if ($is_check_mode) {
     system($cmd);
     exit;
 }
+