自定义程序朗读单词文本

吐槽、建议、解惑入口网址

自定义程序朗读单词文本意思

其核心内容是围绕Mac Terminal终端say命令展开的 让学习英语就像听歌一样简单

具体步骤：

第一步

• 简单使用say去读一小段的文本 say Hello World;
• 学习使用say去读文件 say -f …/…/hello_world.txt|.csv
• 详细使用可以输入命令 man say

第二步

• 寻找合适单词翻译网站 通过复制粘贴的形式到文件中
• 目前我使用的是扇贝网站的单词学习

第三步

• 编写自己的程序

#!/usr/bin/perl
use strict;
use warnings;

use Time::HiRes qw(usleep nanosleep);

# 获取文件参数
my $file = $ARGV[0] or die "Need to get CSV file on the command line\n";
# 打开文件
open(my $data, '<', $file) or die "Could not open '$file' $!\n";
# 一行一行的读文件
while (my $line = <$data>) {
  usleep(500);
  # 去除回车键
  chomp $line;
  # 一行文本按照空格符的进行分割成组
  my @strWord = split(/[\s+]/, $line);
  foreach(@strWord){
     if($_  !~ /\./){
     `say "$_"`;
      if($_ =~ /\w+/){
          my $size = length($_);
         my $strIndex = 0;
         my $strEnd = $strIndex + 1;
          while($strIndex < $size){
          my $subWord = substr($_, $strIndex, 1);
          `say "$subWord"`;
         $strIndex = $strIndex + 1;
         }
       usleep(500);
      # say 单词和单词的释义
       `say "$_"`;
      }
      print "$_  ";
     }
  }
  print "\n";
}

• 通过perl命令执行程序 eg: perl readCSV.pl /Users/useheart/学习资料/英语单词学习.csv