Fellow Monks, (and I'm quite happy to be able to say that now,)
As some of you may already know, I'm going in to have my wisdom teeth removed tomorrow. As such, I wanted to make light of it, a little bit, as a way of getting rid of the stress. So I present, my code for Friday:
use Anaesthethic::General;
$feelingFine=true;
my @wisdomTeeth = (grep /^Wisdom/ (keys %teeth))
foreach my $wisdomTooth (@wisdomTeeth){
delete $teeth{$wisdomTooth};
}
sleep(10800) if $prescription->filled or $pain > THRESHOLD;
while($pain != 0){
$feelingFine = false unless ($prescription->pills > 0);
}
Go ahead and add your own comments/improvments to this, I want to see what's the best that can be done before I go in (about 24 hrs from now, 8:30 am PDT.)
Have fun with it.
Edited My friend pointed out sleep is in seconds not in milliseconds in perl, and I had a syntax error to fix.
-
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.
|