say コマンド使って,簡易ディクテーション学習ソフトを作ってみました. #! /usr/bin/perl use strict; use warnings; open FH, $ARGV[0] or die('sayeng file.txt'); while(<FH>){ chomp; next if($_ eq ''); system("say $_"); my $input = <STDIN>; if( $input =~ /</stdin></fh>…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。