You can make it a lot shorter, like the code above shows part of.#!/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"; ...
In reply to Re: Simple Greeter
by Jaap
in thread Simple Greeter
by harley_frog
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |