Re: Converting output from numeric values to text

*shrug*

You should be using ==, but how about something a little more direct:

my @mnths = qw(jan feb mar apr may jun jul aug sep oct nov dec);
my ($month) = (localtime(time))[4];

my $New_mo = $mnths[$month];
print  $New_mo;
[download]

C-.

update:I didn't even see the scope issue for the other two ideas and that was actually the reason nothing was getting into the output file. Even if you lost the "my" in your structures, however, you'd still get the wrong data in the file.

Comment on Re: Converting output from numeric values to text Download Code

Replies are listed 'Best First'.
Re: Re: Converting output from numeric values to text by cacharbe (Curate) on Mar 29, 2002 at 00:52 UTC
Of course, you could also use one of the various Date::x modules as well. `use Date::Calc qw(Month_to_Text); $string = Month_to_Text(((localtime(time))[4]+1)); print $string;` [download] C-.	[reply] [d/l]