自作英語漬け
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 =~ /$_/i ) { print " -- GOOD -- \n"; }else{ print "$_\n -- BAD -- \n"; } } close FH;