Re^2: Festival Module

thanks for your input. I've tried the $SIG{PIPE} and it is dying so it is happening. I've tried to simplify it into the following:
Module (Voice.pm):

package Voice;

use IO::Socket;

sub new {
  shift;
  my $self = {};
  bless($self);
  return $self;
} # end-new

sub talk {
  $handle = IO::Socket::INET->new(Proto     => "tcp",
                                  PeerAdr   => "localhost",
                                  PeerPort  => 1314)
                                  || die($!);
  print $handle "(SayText \"Testing.\")" || die($!);
} # end-talk

1;
[download]

Script (test.cgi):

#!/usr/bin/perl

use CGI qw(:header);
print header;

use Voice;
my $voice = new Voice;
$voice->talk;

exit;
[download]

When I run test.cgi through a web browser I get nothing (even if the festival server is not running). When I run it from the command line, I get "broken pipe" regardless of whether the festival server is running or not.
The following script works just fine:

#!/usr/bin/perl

use IO::Socket;
$handle = IO::Socket::INET->new(Proto     => "tcp",
                                PeerAddr  => "localhost",
                                PeerPort  => 1314)
                                || die($!);
print $handle "(SayText \"Testing.\")";

exit;
[download]

Being a newbie at perl modules my guess is that I've done something wrong in writing the module but I really dont know.

Comment on Re^2: Festival Module Select or Download Code

Replies are listed 'Best First'.
Re^3: Festival Module by zentara (Cardinal) on Sep 24, 2004 at 16:35 UTC
UPDATED from original post. I tried you're simpler test script with $voice->talk, and it wouldn't even work without cgi. If you find the answer, let us know. I'm interested in learning about using sockets in modules, and there seems to be a trick to it, which eludes me. Like you it works from a conventional script. I did get it working from a simple procedural style module, but as soon as I put the $socket into a $self->{CONN} form, it gives a broken pipe. It has to be they way the socket gets stored in the scalar. Either a reference to the scalar needs to be used, or the socket needs to be stored as a full fledged hash? I just started reading my Object Oriented Perl, but hav'nt got far enough yet. :-) `package Voice2; use IO::Socket; $handle = IO::Socket::INET->new(Proto => "tcp", PeerAddr => "localhost", PeerPort => 1314) \|\| die($!); sub talk { print $handle "(SayText \"Testing.\")"; } 1;` [download] Test script `#!/usr/bin/perl use lib '.'; use Voice2; Voice2::talk; exit;` [download] I'm not really a human, but I play one on earth. flash japh	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: Festival Module
by zentara (Cardinal) on Sep 24, 2004 at 16:35 UTC

I tried you're simpler test script with $voice->talk, and it wouldn't even work without cgi. If you find the answer, let us know. I'm interested in learning about using sockets in modules, and there seems to be a trick to it, which eludes me. Like you it works from a conventional script. I did get it working from a simple procedural style module, but as soon as I put the $socket into a $self->{CONN} form, it gives a broken pipe. It has to be they way the socket gets stored in the scalar. Either a reference to the scalar needs to be used, or the socket needs to be stored as a full fledged hash? I just started reading my Object Oriented Perl, but hav'nt got far enough yet. :-)

package Voice2;
use IO::Socket;

$handle = IO::Socket::INET->new(Proto     => "tcp",
                               PeerAddr  => "localhost",
                               PeerPort  => 1314)
                                || die($!);

sub talk {
print $handle "(SayText \"Testing.\")";

}

1;
[download]

#!/usr/bin/perl
use lib '.';
use Voice2;

Voice2::talk;
exit;
[download]

I'm not really a human, but I play one on earth. flash japh

[reply]
[d/l]
[select]