digital/devices/PC/Windows/アプリ
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
#contents
*Evernote [#rf66ff38]
[[NET/Evernote]]に移動。
*ペースター [#w8d29c27]
ジャンル的にはクリップボード拡張。選択テキストの加工もで...
-文章に繰り返しがあり，リストに直せることが（人間には）明...
#pre{{
繰り返しテキストをリスト化 | [@ s/(.)(.+?)[ ]+(.+?)(?=\1|...
}}
--このままだとゴミが残ることもあるので（多段化）。
#pre{{
繰り返しテキストをリスト化 |
[|]
[@ s/(.)(.+?)[ ]+(.+?)(?=\1|$)/-$2\n--$3\n/g]
[@ s/ +\n/\n/g]
[@ s/(-+) +/$1/g]
/E
}}
-英文の整形。
英文を整形 | [@ s/\b(.{50,70}) (?![., ])\b/$1\n/g]
-TSVをPukiWikiの表組みに変える（外部スクリプト）。
#pre{{
while (<>) {
s/([\d,]+) ([\t\n])/$1$2/g; # エクセルの数値セルをコピー...
s/\t/|/g;
s/[\r\n]+//;
print "|$_|\n";
}
}}
**日本語 [#gbb20d6c]
SJIS外の文字も正常に処理できる。PU2で呼出せばUTF-8で渡せ...
まず，Perlで日本語を扱う基礎知識が必要。これはペースター...
|use utf8;&br;binmode STDIN, ":encoding(utf-8)";&br;binmo...
|use encoding "utf8";|一部情報が欠落することがある。|
*Anki [#s52aa327]
**Quick [#t9b1d2b3]
***カードにフィールドを追加する [#p2aa611b]
+「ツール」
+「ノートタイプを管理」
++まず，フィールド名を追加する
---対象を選び，「フィールド」コマンド
++次に，カード上での表示を設定
---「カード」コマンド
*ffmpeg [#ffmpeg]
TMPGEncを使わずにこれを使うのは自動化が目的だから、スクリ...
#pre{{
#!/usr/bin/perl
use utf8;
# NHKニュース7.ts のエンコード専用
my $serviceID = 1024;
my $fname = qr/^(.+NHKニュース7)\.ts$/;
# .tsのあるディレクトリで実行。
# GUIから直接実行なら、終了後画面が閉じるのでSTDERRを保存...
use strict;
use warnings;
use Encode;
my $cp932 = find_encoding('cp932');
# http://gihyo.jp/dev/serial/01/modern-perl/0032?page=2
# 画面に出すならこのbinmode STDERR ...はwell works
# binmode STDERR, ":encoding(cp932)"; # ('cp932')はNG
# ファイルに出す
close STDERR;
open (STDERR, '>>:encoding(cp932)', 'ffmpeg.log') or die ...
$| = 1;
# current directory
use Cwd;
my $wd = Cwd::getcwd();
opendir my $dh, $wd or die "$wd:$!";
my @files = readdir $dh;
closedir $dh;
for (@files) {
$_ = $cp932->decode($_);
# 正規表現リテラルで検討するにはdecode必須。
next unless /$fname/;
# ファイル名をencodeしないと対外的な操作できない。
my $infile = $cp932->encode($_);
my $outfile = $cp932->encode($1) . '.mp4';
my $mtime = (stat($infile))[9];
# 動画時間を取得し、何倍速でエンコードできたか表示する
my $info = qx(ffprobe "$infile" -hide_banner -show_entr...
# STDOUTにこれだけ返り、$infoに入る。
# [FORMAT]
# duration=1808.072933
# [/FORMAT]
my $duration = 0;
if ($info =~ m|duration=([\d\.]+)|g) {
$duration = $1;
}
my $stime = time;
qx(ffmpeg -y -hide_banner -nostats -init_hw_device qsv:h...
# タイムスタンプ変更
utime($mtime, $mtime, $outfile) if -e $outfile;
my $passed = time - $stime // 0;
my $sname = $cp932->decode($0); # $0はPerlの特殊変数でス...
printf STDERR "$sname: %.1f times\n",$duration/$passed i...
}
}}
音声多重を速度を変えてエンコードするには2passにする。
#pre{{
#!/usr/bin/perl
use utf8;
# BS世界のドキュメンタリーのエンコード専用
# 速度を変えるため2回変換している。そうしないと音声多重放...
# 防げないようだ。
my $serviceID = 101;
my $fname = qr/^(BS世界のドキュメンタリー.+)\.ts$/;
# .tsのあるディレクトリで実行。
# GUIから直接実行なら、終了後画面が閉じるのでSTDERRを保存...
use strict;
use warnings;
use Encode;
my $cp932 = find_encoding('cp932');
# http://gihyo.jp/dev/serial/01/modern-perl/0032?page=2
# 画面に出すならこのbinmode STDERR ...はwell works
#binmode STDERR, ":encoding(cp932)"; # ('cp932')はNG
# ファイルに出す
close STDERR;
open (STDERR, '>>:encoding(cp932)', 'ffmpeg.log') or die ...
$| = 1;
# current directory
use Cwd;
my $wd = Cwd::getcwd();
# glob関数はWindowsでは正しく動かないという指摘あり（未確...
opendir my $dh, $wd or die "$wd:$!";
my @files = readdir $dh;
closedir $dh;
for (@files) {
$_ = $cp932->decode($_);
# 正規表現リテラルで検討するにはdecode必須。
next unless (/$fname/);
# ファイル名をencodeしないと対外的な操作できない。
my $infile = $cp932->encode($_);
my $middle = $cp932->encode($1) . '.mid.mp4';
my $outfile = $cp932->encode($1) . '.mp4';
my $mtime = (stat($infile))[9];
# 動画時間を取得し、何倍速でエンコードできたか表示する
my $info = qx(ffprobe "$infile" -hide_banner -show_entr...
# STDOUTにこれだけ返り、$infoに入る。
# [FORMAT]
# duration=1808.072933
# [/FORMAT]
my $duration = 0;
if ($info =~ m|duration=([\d\.]+)|g) {
$duration = $1;
}
my $stime = time;
qx(ffmpeg -y -hide_banner -nostats -init_hw_device qsv:h...
qx(ffmpeg -y -hide_banner -nostats -init_hw_device qsv:h...
# タイムスタンプ変更
utime($mtime, $mtime, $outfile) if -e $outfile;
my $passed = time - $stime // 0;
my $sname = $cp932->decode($0); # $0はPerlの特殊変数でス...
printf STDERR "$sname: %.1f times\n",$duration/$passed i...
}
}}
*TVRock [#t0ad1f32]
-TvRockOnTVTest.iniの[BSFrequency] 2020年4月1日現在
#pre{{
[BSFrequency]
0x4010=11727
0x4011=11727
0x4012=11727
0x4030=11766
0x4031=11766
0x4450=11804
0x4451=11804
0x4470=11843
0x4090=11880
0x4091=11880
0x4092=11880
0x46B1=11919
0x46B2=11919
0x40D0=11958
0x40D1=11958
0x40F1=11996
0x40F2=11996
0x4310=12034
0x4311=12034
0x4632=11766
0x46d2=11958
0x4730=12073
0x4731=12073
0x4732=12073
0x4750=12111
0x4751=12111
0x4752=12111
0x4770=12149
0x4771=12149
}}
-Cf. [[総務省の情報通信政策に関するポータルサイト:https:/...
終了行:
#contents
*Evernote [#rf66ff38]
[[NET/Evernote]]に移動。
*ペースター [#w8d29c27]
ジャンル的にはクリップボード拡張。選択テキストの加工もで...
-文章に繰り返しがあり，リストに直せることが（人間には）明...
#pre{{
繰り返しテキストをリスト化 | [@ s/(.)(.+?)[ ]+(.+?)(?=\1|...
}}
--このままだとゴミが残ることもあるので（多段化）。
#pre{{
繰り返しテキストをリスト化 |
[|]
[@ s/(.)(.+?)[ ]+(.+?)(?=\1|$)/-$2\n--$3\n/g]
[@ s/ +\n/\n/g]
[@ s/(-+) +/$1/g]
/E
}}
-英文の整形。
英文を整形 | [@ s/\b(.{50,70}) (?![., ])\b/$1\n/g]
-TSVをPukiWikiの表組みに変える（外部スクリプト）。
#pre{{
while (<>) {
s/([\d,]+) ([\t\n])/$1$2/g; # エクセルの数値セルをコピー...
s/\t/|/g;
s/[\r\n]+//;
print "|$_|\n";
}
}}
**日本語 [#gbb20d6c]
SJIS外の文字も正常に処理できる。PU2で呼出せばUTF-8で渡せ...
まず，Perlで日本語を扱う基礎知識が必要。これはペースター...
|use utf8;&br;binmode STDIN, ":encoding(utf-8)";&br;binmo...
|use encoding "utf8";|一部情報が欠落することがある。|
*Anki [#s52aa327]
**Quick [#t9b1d2b3]
***カードにフィールドを追加する [#p2aa611b]
+「ツール」
+「ノートタイプを管理」
++まず，フィールド名を追加する
---対象を選び，「フィールド」コマンド
++次に，カード上での表示を設定
---「カード」コマンド
*ffmpeg [#ffmpeg]
TMPGEncを使わずにこれを使うのは自動化が目的だから、スクリ...
#pre{{
#!/usr/bin/perl
use utf8;
# NHKニュース7.ts のエンコード専用
my $serviceID = 1024;
my $fname = qr/^(.+NHKニュース7)\.ts$/;
# .tsのあるディレクトリで実行。
# GUIから直接実行なら、終了後画面が閉じるのでSTDERRを保存...
use strict;
use warnings;
use Encode;
my $cp932 = find_encoding('cp932');
# http://gihyo.jp/dev/serial/01/modern-perl/0032?page=2
# 画面に出すならこのbinmode STDERR ...はwell works
# binmode STDERR, ":encoding(cp932)"; # ('cp932')はNG
# ファイルに出す
close STDERR;
open (STDERR, '>>:encoding(cp932)', 'ffmpeg.log') or die ...
$| = 1;
# current directory
use Cwd;
my $wd = Cwd::getcwd();
opendir my $dh, $wd or die "$wd:$!";
my @files = readdir $dh;
closedir $dh;
for (@files) {
$_ = $cp932->decode($_);
# 正規表現リテラルで検討するにはdecode必須。
next unless /$fname/;
# ファイル名をencodeしないと対外的な操作できない。
my $infile = $cp932->encode($_);
my $outfile = $cp932->encode($1) . '.mp4';
my $mtime = (stat($infile))[9];
# 動画時間を取得し、何倍速でエンコードできたか表示する
my $info = qx(ffprobe "$infile" -hide_banner -show_entr...
# STDOUTにこれだけ返り、$infoに入る。
# [FORMAT]
# duration=1808.072933
# [/FORMAT]
my $duration = 0;
if ($info =~ m|duration=([\d\.]+)|g) {
$duration = $1;
}
my $stime = time;
qx(ffmpeg -y -hide_banner -nostats -init_hw_device qsv:h...
# タイムスタンプ変更
utime($mtime, $mtime, $outfile) if -e $outfile;
my $passed = time - $stime // 0;
my $sname = $cp932->decode($0); # $0はPerlの特殊変数でス...
printf STDERR "$sname: %.1f times\n",$duration/$passed i...
}
}}
音声多重を速度を変えてエンコードするには2passにする。
#pre{{
#!/usr/bin/perl
use utf8;
# BS世界のドキュメンタリーのエンコード専用
# 速度を変えるため2回変換している。そうしないと音声多重放...
# 防げないようだ。
my $serviceID = 101;
my $fname = qr/^(BS世界のドキュメンタリー.+)\.ts$/;
# .tsのあるディレクトリで実行。
# GUIから直接実行なら、終了後画面が閉じるのでSTDERRを保存...
use strict;
use warnings;
use Encode;
my $cp932 = find_encoding('cp932');
# http://gihyo.jp/dev/serial/01/modern-perl/0032?page=2
# 画面に出すならこのbinmode STDERR ...はwell works
#binmode STDERR, ":encoding(cp932)"; # ('cp932')はNG
# ファイルに出す
close STDERR;
open (STDERR, '>>:encoding(cp932)', 'ffmpeg.log') or die ...
$| = 1;
# current directory
use Cwd;
my $wd = Cwd::getcwd();
# glob関数はWindowsでは正しく動かないという指摘あり（未確...
opendir my $dh, $wd or die "$wd:$!";
my @files = readdir $dh;
closedir $dh;
for (@files) {
$_ = $cp932->decode($_);
# 正規表現リテラルで検討するにはdecode必須。
next unless (/$fname/);
# ファイル名をencodeしないと対外的な操作できない。
my $infile = $cp932->encode($_);
my $middle = $cp932->encode($1) . '.mid.mp4';
my $outfile = $cp932->encode($1) . '.mp4';
my $mtime = (stat($infile))[9];
# 動画時間を取得し、何倍速でエンコードできたか表示する
my $info = qx(ffprobe "$infile" -hide_banner -show_entr...
# STDOUTにこれだけ返り、$infoに入る。
# [FORMAT]
# duration=1808.072933
# [/FORMAT]
my $duration = 0;
if ($info =~ m|duration=([\d\.]+)|g) {
$duration = $1;
}
my $stime = time;
qx(ffmpeg -y -hide_banner -nostats -init_hw_device qsv:h...
qx(ffmpeg -y -hide_banner -nostats -init_hw_device qsv:h...
# タイムスタンプ変更
utime($mtime, $mtime, $outfile) if -e $outfile;
my $passed = time - $stime // 0;
my $sname = $cp932->decode($0); # $0はPerlの特殊変数でス...
printf STDERR "$sname: %.1f times\n",$duration/$passed i...
}
}}
*TVRock [#t0ad1f32]
-TvRockOnTVTest.iniの[BSFrequency] 2020年4月1日現在
#pre{{
[BSFrequency]
0x4010=11727
0x4011=11727
0x4012=11727
0x4030=11766
0x4031=11766
0x4450=11804
0x4451=11804
0x4470=11843
0x4090=11880
0x4091=11880
0x4092=11880
0x46B1=11919
0x46B2=11919
0x40D0=11958
0x40D1=11958
0x40F1=11996
0x40F2=11996
0x4310=12034
0x4311=12034
0x4632=11766
0x46d2=11958
0x4730=12073
0x4731=12073
0x4732=12073
0x4750=12111
0x4751=12111
0x4752=12111
0x4770=12149
0x4771=12149
}}
-Cf. [[総務省の情報通信政策に関するポータルサイト:https:/...
ページ名:
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
