From 56249f7d89fbbfe5f5a9ad4d43854638b07a4278 Mon Sep 17 00:00:00 2001 From: Nicolas Boisselier Date: Wed, 13 Mar 2024 09:24:21 +0100 Subject: [PATCH] option speed --- bin/say | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/bin/say b/bin/say index fc5601d3..1e26ca10 100755 --- a/bin/say +++ b/bin/say @@ -21,6 +21,7 @@ my $DEBUG = $main::DEBUG = 0; ############################################################################### my %Opt = ( 'lang' => 'en-gb', + 'speed' => 160, ); get_options(\%Opt); $main::_DATA_ = undef; @@ -38,7 +39,7 @@ $main::_DATA_ = undef; #die $_; #open(SAY,"| espeak -v mb-en1+f5 -s 140 -m 2>/dev/null") or die $!; -open(SAY,"| espeak -v $Opt{lang} -m --stdout 2>/dev/null | aplay -q") or die $!; +open(SAY,"| espeak -v $Opt{lang} -s $Opt{speed} -m --stdout 2>/dev/null | aplay -q") or die $!; if (@ARGV or -t STDIN) { $_ = join(" ",@ARGV); @@ -165,7 +166,8 @@ Say some text =head1 OPTIONS - -option[lang=s] Lang (default: $Opt{lang}) + -option[lang|l=s] Lang (default: $Opt{lang}) + -option[speed|s=i] Speed (default: $Opt{speed}) -option[verbose|v+] Verbose mode: increase the verbosity level. -option[debug+] Debug mode: increase the debug level. -option[version|V] Print version (default: $VERSION) -- 2.47.3