[Perl] Funcion Speak()

[BigBear]

Hola a todos  , con esta simple funcion vamos a lograr que nuestra computadora logre hablar y nos
diga lo que queremos , aunque solo puede hablar bien en ingles

Código (perl) [Seleccionar] Expandir

#By Doddy H

use Win32::OLE;

sub speak {


my $habla = Win32::OLE->new("SAPI.SpVoice");

$habla->Speak($_[0],0);

}

Ejemplo de uso

Código [Seleccionar] Expandir


speak("Hi brother");