Thaimisc.com : การเขียน Perl ให้แสดงเวลาให้ตรงกับเวลาทั่วโลก
ThaiMisc.Com : Free Webboard | Free GuestBook | Free Poll | Free Ecard Server | Free Java Chat Room | Advertising | Contact Us | Colocation | Web Hosting | เปิดร้านค้าฟรี


Category : Perl Tip's Print Article Only Print Aticle With Comment
การเขียน Perl ให้แสดงเวลาให้ตรงกับเวลาทั่วโลก
เขียนโดย Thaimisc , 19-12-2001

การเปลี่ยนเวลาใน scripts ให้ตรงกับเวลาในประเทศและทั่วโลก Perl Scripts


ขั้นแรกเลยนะครับเมื่อคุณเขียน โปรแกรมมา 1 ตัว แต่ server นั้นอยู่เมืองนอก คิดแล้วคิดอีก ทำยังไงดี เวลาถึงจะตรงกับเวลาในประเทศเรา ไม่ยากแล้วครับ ต่อไปนี้เมื่อคุณเขียนโปรแกรมขึ้นมา 1 ตัวให้คุณนำ script นี้ ไปใส่ไว้ที่โปรแกรมของคุณเพื่อเป็นการตั้งเวลาใน script ของคุณนะครับ

 

$time_miss = 12;
($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime(time+($time_miss*3600));
$mon++;
if ($mon<10) {$mon="0$mon";}
if ($day<10) {$day="0$day";}
if ($hour<10){$hour="0$hour";}
if ($min<10) {$min="0$min";}
if ($sec<10) {$sec="0$sec";}
$date = "$year/$mon/$day($hour:$min)";
#$date = "$year/$mon/$day";

ความหมายของ ตัวแปลแต่ละตัวแปล $???
$time_miss คือ ผลต่างของเวลา หากเป็น 0 นั้นคือ เวลาปกติของ server ที่คุณใช้

$date คือ การรวมค่าตัวแปลต่างๆ เช่น วัน เดือน ปี มาไว้ในที่เดียวกันและให้นำมาแสดง

ตั้วอย่าง หากคุณต้องการให้แสดงผล

print "$date";
หรือ ให้เขียนวันแวลานี้ งลไปที่ไฟลล์
print FILE"$date";

คิดว่าเพื่อนๆคงนำไปประยุกต์ ใช้ได้ตลอดไปนะครับ :)

<- Back | Next ->

ThaiMisc.Com : Free Webboard | Free GuestBook | Free Poll | Free Ecard Server | Free Java Chat Room | Advertising | Contact Us
Copyright 1999-2006 Thailand Miscellaneous. Allrights reserved. webmaster@thaimisc.com