perlの現地時間から得た

Question

localtime関数は1900年からの年を返しますと言っています。しかし、私は現在の日付に180日を追加してlocaltimeとして印刷します。 2016代わりに116

例の：

$today_date=timelocal(0,0,0,27,03,2016); 
$seconds=180*60*24*60; 
$date=today_date+seconds; 
$new_date=localtime(date); 
print strftime("%d-%m-%Y",$new_date); 

Output: 
24-10-2016 

、私はそれはまだ2016.Howはこの可能であるとして出力を与えるtimelocalする年として、116の代わりに、2016のような入力を与えますか？

Answer 1

あなたのソースコードが間違っています。$記号が変数名の前に欠けています。

モジュールTime::Localからの呼び出しは、1900年から1900年までの入力を入力として受け取り、2016年を渡します。最後に、この日付をlocaltimeに戻します。これはまったく逆の機能です。

この試してみてください：あなたが得る

print time; 
print join(" ",localtime(time)); 

1461783061 
1 51 20 27 3 116 3 117 1 

を：

• 2分目51
• 時間20
• の日である27
• ゼロベースヶ月3をApril
ある
• 1900ベースの年間116 2016

localtimeの私のデフォルトの使用量は次のとおりです。

my @now = localtime(time); 
# Convert zero-based-month to calendar month 
++$now[4]; 
# Convert 1900-based-year to calendar year 
$now[5] += 1900; 

あなたが必要とするすべての日付の計算がある場合は、Date::Calc

use Date::Calc qw(Today Add_Delta_Days); 

print join '-', Today(); 
print join '-', Add_Delta_Days(Today(),1); 

2016-4-27 
2016-4-28 

またはDateTimeを試してください。

use DateTime; 

print DateTime->now->add(days => 1, seconds => 180); 

2016-04-28T19:00:12 

DateTimeのstrftimeメソッドまたはformatterオプションを使用すると、任意の出力が得られます。