Re: Simple Greeter


go ahead... be a heretic
	PerlMonks

Re: Simple Greeter

by Jaap (Curate)

on May 01, 2003 at 13:25 UTC ( [id://254622]=note: print w/replies, xml )

Need Help??

in reply to Simple Greeter

#!/usr/bin/perl -w
use strict;
print "Please enter your name: ";
chomp(my $name = <STDIN>);
my @greeting = ("night", "morning", "afternoon", "evening");
my @days = qw/Sunday Monday Tuesday Wednesday Thursday Friday Saturday
+/;
my @months = qw/January February March April May June July August Sept
+ember October November December/;

my @currentTime = localtime();
print "\nGood " . $greeting[int($currentTime[2]/6)] . ", $name";
...
[download]

You can make it a lot shorter, like the code above shows part of.