TSNETWiki
テキストとスクリプトの世界
開始行:
[[Zed Watching]] | [[Zed]] | [[Kioku]]
-スクリプト特別ルール([[Zed]]を参照)を利用して、[[Zed]]上...
--[[TSNETスクリプト通信第6号]]の「Zed入門 II - Twitter on...
---[[twemo2.pl]]
---[[zed2twitter.pl]]
-Zedの編集用スクリプト
--YouTubeの文字起こし(英文)をZed上にコピペして機械翻訳に...
#!/Perl/bin/MSWin32-x86-object/jperl.exe
# Title = ytmoji.pl
# Input
# Output
#binmode STDOUT;
$| = 1;# for Zed
$outsw = 1;
while(<>){
if (index($_, "\x1A") > -1) {
last;# EOF
}
chomp;
s/ / /g;
s/ +$//;
s/…/\.\.\./g;
s/’/'/g;
s/”/"/g;
s/(\w)\?(\w)/$1\-$2/g;
if(/[\.\?\!]$/){
print $_, "\n";
$outsw = 1;
}elsif(/^\d+:\d+$/){
if($outsw == 1){
print $_, "\n";
$outsw = 0;
}else{
next;
}
}else{
print $_, " ";
}
}
※YouTubeの文字起こしは便利だが、経過時間文字列が文の途中...
※2 実際、文字起こしの英語の文の区切りは一定ではなく、ピリ...
終了行:
[[Zed Watching]] | [[Zed]] | [[Kioku]]
-スクリプト特別ルール([[Zed]]を参照)を利用して、[[Zed]]上...
--[[TSNETスクリプト通信第6号]]の「Zed入門 II - Twitter on...
---[[twemo2.pl]]
---[[zed2twitter.pl]]
-Zedの編集用スクリプト
--YouTubeの文字起こし(英文)をZed上にコピペして機械翻訳に...
#!/Perl/bin/MSWin32-x86-object/jperl.exe
# Title = ytmoji.pl
# Input
# Output
#binmode STDOUT;
$| = 1;# for Zed
$outsw = 1;
while(<>){
if (index($_, "\x1A") > -1) {
last;# EOF
}
chomp;
s/ / /g;
s/ +$//;
s/…/\.\.\./g;
s/’/'/g;
s/”/"/g;
s/(\w)\?(\w)/$1\-$2/g;
if(/[\.\?\!]$/){
print $_, "\n";
$outsw = 1;
}elsif(/^\d+:\d+$/){
if($outsw == 1){
print $_, "\n";
$outsw = 0;
}else{
next;
}
}else{
print $_, " ";
}
}
※YouTubeの文字起こしは便利だが、経過時間文字列が文の途中...
※2 実際、文字起こしの英語の文の区切りは一定ではなく、ピリ...
ページ名:
![[PukiWiki]](skin/modernskin/logo.png "[PukiWiki]"){kind=logo}
