Wiki | Perl / DateTimeLocaltime

Perl.DateTimeLocaltime History

Hide minor edits - Show changes to markup

December 31, 2005, at 04:53 AM by 85.105.66.26

Changed lines 8-9 from:

print date();

to:

print date(), "\n";

Restore

December 31, 2005, at 04:52 AM by 85.105.66.26

Changed lines 8-12 from:

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); printf "%4d-%02d-%02d %02d:%02d:%02d\n", $year+1900,$mon+1,$mday,$hour,$min,$sec;

to:

print date();

sub date {

	my ($sec,$min,$hour,$mday,$mon,$year,$wday, $yday,$isdst)=localtime(time);
	$mon++;
	$year += 1900;
	my $tarih = "$year.$mon.$mday" . "_" . "$hour.$min.$sec";
	return $tarih;

}

Restore

December 31, 2005, at 04:47 AM by 85.105.66.26

Added lines 1-13:

G�n�n tarihinin bi�imli yazdırılması:

(:code:) #!/usr/bin/perl use strict; use warnings; my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); printf "%4d-%02d-%02d %02d:%02d:%02d\n", $year+1900,$mon+1,$mday,$hour,$min,$sec;

Restore