Re: Converting output from numeric values to text

[cacharbe]

*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;

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.

[cacharbe]

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;

C-.