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

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
    use strict;
      print "Birthday stone: $day_stone\n";
      print "Sign stone: $sign_stone\n" if $sign_stone;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1190518]
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
Find Nodes?
    Voting Booth?
    The room is dark, and your next move is ...

    Results (270 votes). Check out past polls.