use POSIX's function strftime:
perl -le 'use POSIX qw/strftime/;$time = strftime "%Y%m%d",localtime; print
$time'
--- On Wed, 10/6/09, Rick <rich.j...@gmail.com> wrote:
> From: Rick <rich.j...@gmail.com>
> Subject: localtime
> To: "Perl Beginners" <beginners@perl.org>
> Received: Wednesday, 10 June, 2009, 9:55 AM
> below is working code but is there
> way to shorten this code in more perlish way?
>
> my($DAY, $MONTH , $YEAR ) = (localtime)[3,4,5];
>
> my $day = sprintf("%02d",$DAY);
> my $month = sprintf("%02d", ($MONTH + '1'));
> my $year = sprintf("%04d", ($YEAR + '1900'));
>
> my $current_dir = join('', $year, $month, $day);
>
> -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>
Need a Holiday? Win a $10,000 Holiday of your choice. Enter
now.http://us.lrd.yahoo.com/_ylc=X3oDMTJxN2x2ZmNpBF9zAzIwMjM2MTY2MTMEdG1fZG1lY2gDVGV4dCBMaW5rBHRtX2xuawNVMTEwMzk3NwR0bV9uZXQDWWFob28hBHRtX3BvcwN0YWdsaW5lBHRtX3BwdHkDYXVueg--/SIG=14600t3ni/**http%3A//au.rd.yahoo.com/mail/tagline/creativeholidays/*http%3A//au.docs.yahoo.com/homepageset/%3Fp1=other%26p2=au%26p3=mailtagline
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
