Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

comment on

( #3333=superdoc: print w/replies, xml ) Need Help??
It may still need some tweaking but here is the version that reads it aloud.

#!/usr/bin/perl -w # "We're Going on a Bear Hunt" # Speaking version use strict; use Win32::OLE; my $voice; $voice = Win32::OLE->new("Speech.VoiceText") or die("TTS failed"); $voice->Register("", "$0"); $voice->{Enabled} = 1; $voice->{Speed}=150; my @bh = ( ['grass','Swishy swashy','long','wavy'], ['river','Splash splosh','deep','cold','A'], ['mud','Squelch squerch','thick','oozy'], ['forest','Stumble trip','big','dark','A'], ['snowstorm','Hoooo woooo','swirling','whirling','A'], ['cave','Tiptoe','narrow','gloomy','A'], ); my @br = ( 'One shiny wet nose', 'Two big furry ears', 'Two big goggly eyes', ); my @gh = ( ['Get to our front door','Open the door','Up the stairs'], ['Oh, no!','We forgot to shut the door','Back downstairs'], ['Shut the door','Back upstairs','Into the bedroom'], ['Into bed','Under the covers'], ); main(); exit(); sub nl { print $/; } sub e { talk("@_!"); } sub p { talk("@_."); } sub going { p("We're going $_[0]"); } sub cantgo { p("We can't go $_[0] it"); } sub bearhunt{ my @w = @_; my ($s1,$s2); if (5 == @w) { $s1 = "$w[4] $w[0]"; $s2 = "$w[4] $w[2]"; } else { $s1 = ucfirst($w[0]); $s2 = ucfirst($w[2]); } $s2 .= ", $w[3] $w[0]"; going('on a bear hunt'); going('to catch a big one'); e('What a beautiful day'); p("We're not scared"); nl(); e('Uh, oh'); nl(); e($s1); e($s2); nl(); cantgo('over'); cantgo('under'); nl(); e('Oh, no'); nl(); e("We've got to go through it"); nl(); for(1..3){ e($w[1]); } nl(); } sub backthrough{ my ($num, $what, $sound) = @_; $num = $num % 2 + 2; talk('Back through the '.$what.'! '."$sound! "x$num); nl(); } sub run { my @l = @_; for my $l (@l) { p($l); } nl(); } sub title { nl(); print q("We're Going on a Bear Hunt"); nl(); nl(); } sub main{ title(); for my $bh (@bh) { bearhunt(@$bh); } talk("WHAT'S THAT?"); nl(); nl(); for my $br (@br) { e($br); } nl(); talk("IT'S A BEAR!!!!"); nl(); e('Quick'); my @bt = reverse @bh; my $ct = 0; for my $bt (@bt) { $ct++; backthrough($ct, @$bt); } nl(); for my $gh (@gh) { run(@$gh); } p("We're not going on a bear hunt again"); } sub talk{ my $line = shift; print $line,$/; $voice->Speak($line, 1); while ($voice->IsSpeaking()) { sleep 1; } }

In reply to Read "We're Going on a Bear Hunt" Out Loud by Mr. Muskrat
in thread We're Going on a Bear Hunt by Mr. Muskrat

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?

    What's my password?
    Create A New User
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others contemplating the Monastery: (5)
    As of 2021-04-22 21:24 GMT
    Find Nodes?
      Voting Booth?

      No recent polls found