in reply to Propose to a Girl
jesuashok, just so there's no misunderstanding, you are being accused of plagiarism. Furthermore, Fletch is absolutely correct in making this accusation.
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
In case you don't realize how obvious it is that this is NOT your original work, here is the Internet version side-by-side with what you claim to have written yourself:
---------------------------------------+------------------------------ +------------ "C Program to propose a girl" | CLAIMED to be written by jesu +ashok Internet version posted 4/21/2006 | for Perlmonks on 9/8/2006 ---------------------------------------+------------------------------ +------------ | #PERL Program to Propose a gi +rl. | | package main; | #include "STD ISD PCO.h" | use STD.pm | use ISD.pm | use PCO.pm #include "love.h" | use Love.pm #define Cute beautiful_lady | use constant CUTE | => beautiful_girl_or_ladi +es; | main() | goto college; | goto all_colleges_and_univers +ities; scanf("100%",&ladies); | $ladies = chomp(<STDIN>); | if(lady ==Cute ) | if ( $ladies eq Cute ) { line++; | $cute_girls_count ++; { | } | while ( !$reply ) { printf("I Love U"); | print HEART "I LOVE YOU" +; | scanf("100%",&reply); | $reply = chomp(<STDIN>); | } | } | if(reply == "GAALI") | main(); | /* go back and repeat the process */| else if(reply == "SANDAL ") | exit(1); | | if ( $reply !~ /I LOVE YOU/i +) { | goto all_colleges_and_uni +versities; | } else if(reply == "I Love U") | else { { | lover =Cute ; | $lovers_list{$ladies} = ' +my_lover'; love = | (heart*)malloc(sizeof(lover)); | } | | goto restaurant; | goto restaurant; | } | restaurant: | restaurant: { | { food++; | $food++; smile++; | $smile++; pay->money = lover->money; | $guy_money->pay = $lover_ +money->get; return(college); | goto all_colleges_and_uni +versities; } | } | if(time==2.30) | if ( $time eq '02.30pm' ) { goto cinema; | goto cinema; | } | cinema: | cinema: { | { watch++; | $watch++; if(intermission) | if ( $intermission ) { { | coke++; | $coke ++; Popecorn++; | $popcorn ++; | $ice_cream++; | $guiness ++; } | } } | } | if(time ==6.00) | if ( $time eq '06.00pm' ) { goto park; | goto park; | } | park: | park: { | { for(time=6.30; | for ( $time = '06.00pm'; time<=8.30; | $time <= '08.30pm'; time+=0.001) | $time += 0.0001 ) { kiss = kiss+1; | $kiss ++; | } free(lover); | return(home); | goto home; | if(time ==9.30) | if ( $time eq '09.30pm' ) { goto pub; | goto pub; | } | pub: | pub: { | { friends++; | $friends ++; party++; | $party ++; booze++; | $booze ++; smoke++; | $smoke ++; | if(pub.close()) | if ( $pub->close() ) { { | pay->bill; | $pay->bill(); come->out; | $come->out(); } | } } | | if (highly->intoxicated) | if ( $highly->intoxicated + ) { goto friendsroom; | goto friendsroom; | } else | else { { | sweetpan++; | $sweetpan ++; polo++; | $polo ++; goto home; | goto home; } | } | } | friendsroom: | friendsroom: { | { goto sleep; | goto sleep; } | } | home: | home: if(mom.shouts()) | if( $mom->shouts() ) { | { reason=(combinedstudy | $reasonfiltered = ( $ +combinedstudy || projectwork | || $projectwork || friendsbday); | || $friendsbday +); say->reason; | $say->reason(); } | } if(dad.shouts()) | if( $dad->shouts() ) { shut->yourmouth; | $shut->yourmouth(); | } | call->lover; | $call->lover(); if(phone->voice==( | if( $phone->voice eq ( $lover_dad->voice() | $lover_dad->voi +ce() || lover_mom->voice)) | || $lover_mom->v +oice()) ) { | { hang++; | $hang ++; } | } else if(phone->voice==lover->voice) | else if( $phone->voice( +) eq | $lover->voice( +) ) { | { for(time=12:30; | for( $time = '12:30' +; time<=1.30; | $time <= '1.30'; time+=0.001) | $time += 0.001 ) { | { say->ILuvU; | $say->ILuvU() ; scanf("100%",&reply); | $reply = chomp(<ST +DIN>); /* "I Love U" already | stored in reply */ | } | } } | } goto sleep; | goto sleep; } | } | sleep: | sleep: { | { *(dream)=love; | $dream = 'love'; } | } } | |
No amount of protestations of "It is my own effort. please don't try to degrade me." are going to change the facts.
Update: Added link (noted first by Fletch)
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Propose to a Girl
by Mr. Muskrat (Canon) on Oct 09, 2006 at 18:12 UTC | |
by planetscape (Chancellor) on Oct 09, 2006 at 20:21 UTC | |
by Mr. Muskrat (Canon) on Oct 11, 2006 at 16:38 UTC | |
by chargrill (Parson) on Oct 09, 2006 at 20:51 UTC |
In Section
Perl Poetry