Hi
#PERL Program to Propose a girl. add modules as per your wish
package main;
use STD.pm
use ISD.pm
use PCO.pm
use Love.pm
use constant CUTE => beautiful_girl_or_ladies;
goto all_colleges_and_universities;
$ladies = chomp(<STDIN>);
if ( $ladies eq Cute ) {
$cute_girls_count ++;
}
while ( !$reply ) {
print HEART "I LOVE YOU";
$reply = chomp(<STDIN>);
}
if ( $reply !~ /I LOVE YOU/i ) {
goto all_colleges_and_universities;
}
else {
$lovers_list{$ladies} = 'my_lover';
goto restaurant;
}
restaurant:
{
$food++;
$smile++;
$guy_money->pay = $lover_money->get;
goto all_colleges_and_universities;
}
if ( $time eq '02.30pm' ) {
goto cinema;
}
cinema:
{
$watch++;
if ( $intermission ) {
$coke ++;
$popcorn ++;
$ice_cream++;
$guiness ++; # Europe special. Varies depends upon country
}
}
if ( $time eq '06.00pm' ) {
goto park;
}
park:
{
for ( $time = '06.00pm'; $time <= '08.30pm'; $time += 0.0001 ) {
$kiss ++; # I can tell only that, it is upto the reader to us
+e any varaibles ;).
}
}
goto home;
if ( $time eq '09.30pm' ) {
goto pub;
}
pub:
{
$friends ++;
$party ++;
$booze ++;
$smoke ++;
if ( $pub->close() ) {
$pay->bill();
$come->out();
}
if ( $highly->intoxicated ) {
goto friendsroom;
}
else {
$sweetpan ++;
$polo ++;
goto home;
}
}
friendsroom:
{
goto sleep;
}
home:
{
if( $mom->shouts() )
{
$reasonfiltered = ( $combinedstudy || $projectwork || $friends
+bday );
$say->reason();
}
if( $dad->shouts() ) {
$shut->yourmouth();
}
$call->lover();
if( $phone->voice eq ( $lover_dad->voice() || $lover_mom->voice(
+)) )
{
$hang ++;
}
else if( $phone->voice() eq $lover->voice() )
{
for( $time = '12:30' ; $time <= '1.30'; $time += 0.001 )
{
$say->ILuvU() ;
$reply = chomp(<STDIN>);
}
}
goto sleep;
}
sleep:
{
$dream = 'love';
}
"Keep pouring your ideas"
Considered by xorl: Since the plagiarism has been uncovered why don't we reap this node.
Unconsidered by planetscape: keep (and edit) votes prevented reaping ( keep: 10 edit: 1 reap: 12 )
-
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.
|