用Perl表示當(dāng)前時(shí)間的方法

這篇文章將為大家詳細(xì)講解有關(guān)用Perl表示當(dāng)前時(shí)間的方法，小編覺得挺實(shí)用的，因此分享給大家做個(gè)參考，希望大家閱讀完這篇文章后可以有所收獲。

為龍華等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計(jì)制作服務(wù)，及龍華網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站設(shè)計(jì)、龍華網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會得到認(rèn)可，從而選擇與我們長期合作。這樣，我們也可以走得更遠(yuǎn)！

Perl有一個(gè)方便的內(nèi)置函數(shù)，用于在腳本中查找當(dāng)前日期和時(shí)間。但是，當(dāng)我們談?wù)撜視r(shí)間時(shí)，我們討論的是當(dāng)前在運(yùn)行腳本的機(jī)器上設(shè)置的時(shí)間。例如，如果您在本地計(jì)算機(jī)上運(yùn)行Perl腳本，則localtime將返回您設(shè)置的當(dāng)前時(shí)間，并且可能設(shè)置為您當(dāng)前的時(shí)區(qū)。

用Perl表示當(dāng)前時(shí)間的方法

在Web服務(wù)器上運(yùn)行相同的腳本時(shí)，您可能會發(fā)現(xiàn)桌面系統(tǒng)上的本地時(shí)間已關(guān)閉本地時(shí)間。服務(wù)器可能位于不同的時(shí)區(qū)，或者設(shè)置不正確。每臺機(jī)器可能對本地時(shí)間有一個(gè)完全不同的想法，它可能需要在腳本內(nèi)或服務(wù)器本身上進(jìn)行一些調(diào)整，以使其與您期望的相匹配。

localtime函數(shù)返回一個(gè)包含當(dāng)前時(shí)間數(shù)據(jù)的列表，其中一些數(shù)據(jù)需要進(jìn)行調(diào)整。運(yùn)行下面的程序，您將看到列表中的每個(gè)元素都打印在行上并用空格分隔。

#!/usr/local/bin/perl
@timeData = localtime(time);
print join(' ', @timeData);

你應(yīng)該看到類似的東西，雖然數(shù)字可能會有很大不同。

20 36 8 27 11 105 2 360 0

當(dāng)前時(shí)間的這些元素按順序排列：

-過了一分鐘

-過了幾分鐘

-午夜時(shí)分

-每月的某一天

-從年初開始的幾個(gè)月

-自1900年以來的年數(shù)

-自本周開始以來的天數(shù)（星期日）

-自年初以來的天數(shù)

-夏時(shí)制是否有效

使Perl本地時(shí)間可讀

localtime返回的數(shù)組中的一些元素讀起來有點(diǎn)別扭。誰會用1900年以后的年份來考慮這一年呢?讓我們看一個(gè)例子，讓我們的日期和時(shí)間更清楚。

當(dāng)你運(yùn)行這個(gè)程序時(shí)，你會看到一個(gè)更容易閱讀的日期和時(shí)間，像這樣:

 9:14:42, Wed Dec 28, 2018

那么我們做了什么來創(chuàng)建這個(gè)可讀性更好的版本呢?首先，我們準(zhǔn)備兩個(gè)數(shù)組，其中包含月份和星期的名稱。

@months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
@weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun);

由于localtime函數(shù)以0-11和0-6之間的值返回這些元素，因此它們是數(shù)組的最佳候選元素。localtime返回的值可以作為數(shù)字地址來訪問數(shù)組中的正確元素。

$months[$month] $weekDays[$dayOfWeek]

下一步是從localtime函數(shù)獲取所有的值。在本例中，我們使用Perl快捷方式自動將localtime數(shù)組中的每個(gè)元素放到它自己的變量中。我們選擇名稱是為了便于記住哪個(gè)元素是哪個(gè)元素。

($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();

我們還需要調(diào)整這一年的價(jià)值。記住，localtime返回自1900年以來的年數(shù)，因此為了找到當(dāng)前的年份，我們需要在給定的值上加上1900。

$year = 1900 + $yearOffset;

如何用Perl表示當(dāng)前通用時(shí)間

假設(shè)您希望避免所有可能的時(shí)區(qū)混淆，并控制自己的時(shí)差。獲取localtime中的當(dāng)前時(shí)間將始終返回一個(gè)基于機(jī)器的時(shí)區(qū)設(shè)置的值——美國的服務(wù)器將返回一個(gè)時(shí)間，而澳大利亞的服務(wù)器將返回一個(gè)由于時(shí)區(qū)差異而幾乎全天不同的時(shí)間。

Perl還有第二個(gè)方便的時(shí)間指示函數(shù)，它的工作方式與localtime完全相同，但是它返回的不是機(jī)器所在時(shí)區(qū)的固定時(shí)間，而是協(xié)調(diào)世界時(shí)(UTC，也稱為格林尼治標(biāo)準(zhǔn)時(shí)間或GMT)。很簡單，這個(gè)函數(shù)被稱為gmtime

 #!/usr/local/bin/perl
@timeData = gmtime(time);
print join(' ', @timeData);

除了在每臺機(jī)器上和GMT中返回的時(shí)間相同之外，gmtime和localtime函數(shù)之間沒有區(qū)別。所有數(shù)據(jù)和轉(zhuǎn)換都以相同的方式完成。

#!/usr/local/bin/perl
@months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
@weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = gmtime();
$year = 1900 + $yearOffset;
$theGMTime = "$hour:$minute:$second, $weekDays[$dayOfWeek] $months[$month] $dayOfMonth, $year";
print $theGMTime;

1.localtime將返回運(yùn)行腳本的機(jī)器上的當(dāng)前本地時(shí)間。

2.gmtime將返回通用格林尼治標(biāo)準(zhǔn)時(shí)間，或GMT(或UTC)。

3.返回值可能不是您所期望的，因此請確保在必要時(shí)進(jìn)行轉(zhuǎn)換。

關(guān)于用Perl表示當(dāng)前時(shí)間的方法就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，可以學(xué)到更多知識。如果覺得文章不錯(cuò)，可以把它分享出去讓更多的人看到。

網(wǎng)頁題目：用Perl表示當(dāng)前時(shí)間的方法
網(wǎng)頁網(wǎng)址：http://bm7419.com/article48/jdijhp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供標(biāo)簽優(yōu)化、Google、品牌網(wǎng)站制作、ChatGPT、App開發(fā)、企業(yè)建站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)

成都做網(wǎng)站