Re: Re: string concatenation

Hi, The actual code is like this: ($min, $hours) = localtime(2,3); $now = "$hour" . "$min" # expect to see - $now = "1208" For minutes equal or greater than 2 digits, it's fine. Only when minutes is less than 2 digits ( < 10). Any help is appreciated.

Comment on Re: Re: string concatenation

Replies are listed 'Best First'.
Re: Re: Re: string concatenation by Enlil (Parson) on Nov 13, 2002 at 00:20 UTC
The problem is that $min is returned from localtime as "2" instead of "02", the same with hours for that matter you could do something like the following: `my ($min,$hours) = (localtime)[2,3]; my $now = $hours . sprintf ("%02",$min);` [download] -enlil	[reply] [d/l]
Re: Re: Re: Re: string concatenation by Anonymous Monk on Nov 13, 2002 at 14:51 UTC
Thanks! EnLil. That works great.	[reply]
Re: Re: Re: string concatenation by DamnDirtyApe (Curate) on Nov 13, 2002 at 02:04 UTC
Enlil beat me to the `sprintf` solution, but if you've got more complex date formatting to do, consider using the `strftime` function from the POSIX module. `use POSIX ; my $now = POSIX::strftime( "%H%M", localtime ) ; print $now, "\n" ;` [download] _______________ DamnDirtyApe Those who know that they are profound strive for clarity. Those who would like to seem profound to the crowd strive for obscurity. --Friedrich Nietzsche	[reply] [d/l] [select]