Re: Printing Fixed Width Strings and Spliting String into Multiple Lines

If you only need the month and the year, it is less typing if you do:

my ($mon, $year) = (localtime())[4, 5];
[download]

And for finding the name of the month I use a list:

my $month = (qw/January February March April May June July August Sept
+ember October November December/)[(localtime())[4]];
[download]

And combining all together (without using any intermediary variables):

$month_year= (qw/January February March April May June July August Sep
+tember October November December/)[(localtime())[4]] . (1900 + (local
+time())[5]);
[download]

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

Comment on Re: Printing Fixed Width Strings and Spliting String into Multiple Lines Select or Download Code

Replies are listed 'Best First'.
Re^2: Printing Fixed Width Strings and Spliting String into Multiple Lines by mmartin (Monk) on Feb 09, 2012 at 20:04 UTC
Hey CountZero, thanks for the reply. Nice little trick. I'll have to add that to my code. Looks good, much cleaner... Thanks! Thanks, Matt	[reply]