Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: Happy unbirthday redux! and other birthday stuff

by Lady_Aleena (Curate)
on May 18, 2017 at 09:39 UTC ( #1190518=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    package Date::Birth::Stone;
    use strict;
    ...
    October  |opal
    November |topaz
    December |turquoise
    
  2. or download this
    package Date::Birth::Flower;
    use strict;
    ...
    October  |calendula or marigold          |marigold
    November |chrysanthemum or peony         |chrysanthemum
    December |holly or Narcissus             |pionsetta
    
  3. or download this
    package Date::Birth::DayStone;
    use strict;
    ...
    Thursday |sapphire or carnelian
    Friday   |emerald or cat's eye
    Saturday |turquiose or diamond
    
  4. or download this
    package Zodiac::Stone;
    use strict;
    ...
    Libra      |September|24|October  |23|chrysolite
    Scorpio    |October  |24|November |22|beryl
    Sagittarius|November |23|December |21|topaz
    
  5. or download this
    #!/usr/bin/perl
    use strict;
    ...
      print "Birthday stone: $day_stone\n";
      print "Sign stone: $sign_stone\n" if $sign_stone;
    }
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (4)
As of 2019-09-21 06:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The room is dark, and your next move is ...












    Results (270 votes). Check out past polls.

    Notices?