<sad>This "poem" has come to my mind this morning, when I unsuccesfully tried to renew my passport and I have been running around in circles in my town without any useful result. This doesn't compile and hence doesn't run; in fact, I don't have my password renewed, yet. Try to run it after a month or two it has been posted, maybe I'll have my passport renewed and, then, it will work...</sad>
About the Can't locate patience.pm in @INC complain: that's because I lost it all this morning, if you can find it and provide some, you are welcome
#!/usr/bin/perl
use patience ;
use Bronto ;
use Phone::Mobile ;
my $self = Bronto->new ;
my $phone = $self->get("phone") ;
my $dad = $self->call("dad", using => $phone) ;
my $reply = $dad->ask("how do I renew my passport?") ;
# At this point $reply holds the value
# "There are new dispositions, go to the Carabinieri and ask them to r
+enew it"
alarm $at_7_am ;
sleep $all_night ;
# alarm rings now...
$bronto->have("shower") ;
$bronto->have("breakfast") ;
$bronto->goto("carabinieri") ;
$reply = $bronto->ring("carabinieri") ;
# $reply now holds
# "Call forwarded"... what? Forwarded... why?
$reply = $bronto->wait ;
# $reply holds: "They open at 10"
$reply = $bronto->say("But I read 8:00 - 22:00 here") ;
# $reply holds: "It changed months ago"
$reply = $bronto->localtime ; # 8:45
$bronto->goto("home") and sleep $until_10_am ;
$bronto->goto("carabinieri") ;
$reply = $bronto->ask("I have to renew my passport") ;
# $reply is now: "Sit down here, please" ;
sleep $ten_minutes ;
# $reply is now: "You have to ask to the City Police, not us";
# Do you wonder how it happened? Can't say. Maybe the carabiniere
# had a reference to $reply at hand...
$bronto->goto("city police") ;
$reply = $bronto->ask("I have to renew my passport") ;
# $reply is "Not us, try at the city records office"
$bronto->goto("downstairs") ;
$reply = $bronto->ask("I have to renew my passport") ;
# $reply is "Go to the main police station in Cagliari"
$reply = $bronto->feels ;
# $reply is "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARRRRGHHHHH!!!"
$bronto->watch(movie => 'http://www.imdb.com/title/tt0072901/') and
learn_lesson() ;
Sigh! --bronto
In theory, there is no difference between theory and practice. In practice, there is.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|