Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
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 perusing the Monastery: (5)
As of 2016-06-27 02:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My preferred method of making French fries (chips) is in a ...











    Results (335 votes). Check out past polls.