Thanks and Regards,#!/usr/bin/perl if($freetime){ &searchperlmonks; if($reply eq 'good'){ $reputation++; }else{ $reputation--; } print"Reputation=> $reputation\n"; } sub searchperlmonks{ open nlink, "seekers of perl wisdom"; while(<nlink>){ if($node =~ /newnode$/){ if($knowanswer){ $replynode = 'true'; }else{ $replynode = 'false'; push(@mind,$newnode); } } } }
In reply to The Great Monk by madtoperl
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |