Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Student Teacher

by nerfherder (Monk)
on Feb 23, 2011 at 08:57 UTC ( #889765=poem: print w/ replies, xml ) Need Help??

#!/opt/bin/perl use Switch; use 5.010; my %is_ready = ('teacher' => "student", 'student' => "teacher"); for(%is_ready){ given($_) { when(/student/) { appear($is_ready{$_}); } when(/teacher/) { appear($is_ready{$_}); } } } sub appear{ $appear = shift; print "$appear is ready, ". $is_ready{$appear} ."\n"; }

Replies are listed 'Best First'.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://889765]
Approved by planetscape
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (2)
As of 2016-08-25 02:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The best thing I ever won in a lottery was:















    Results (352 votes). Check out past polls.