如何用perl实现时间相加

liuxl2008

UID: 15573
帖子: 1
积分: 2
在线时间: 10 分钟

1^# liuxl2008 发表于 2008-09-12 11:32

如何用perl实现时间相加

如何用perl实现将“2008-9-12 10：23：23” 加上6小时的时间段（时间段不固定），最后得出的格式是“2008-9-12 16：23：23”
非常感谢！

cscscheng

UID: 21507
帖子: 9
积分: 20
在线时间: 10 分钟

2^# cscscheng 发表于 2008-09-12 11:46

我想用c都可以..perl应该更容易才对吧.
实在不行..就先转成秒数..再加上时间段...转转化回来.不久OK了..
很傻的方法....哈哈.

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

3^# cobrawgl 发表于 2008-09-12 13:44

Time::Piece - Object Oriented time objects

或者相关模块

topstar_allan

UID: 16198
帖子: 60
积分: 138
在线时间: 5 小时

4^# topstar_allan 发表于 2008-09-12 16:24

提供一个原始思路给你.
把时间拆散,然后把小时+6
然后再组合成时间!.

liuxl2008

UID: 15573
帖子: 1
积分: 2
在线时间: 10 分钟

5^# liuxl2008 发表于 2008-09-12 17:40

有没有现成的函数可以用呢

topstar_allan

UID: 16198
帖子: 60
积分: 138
在线时间: 5 小时

6^# topstar_allan 发表于 2008-09-13 00:06

#!/usr/bin/perl -w
use strict;
use Time::Local;
$_= "2008-9-12 10:23:23";/(\d+)-(\d+)-(\d+)\s+(\d+)\d+)\d+)/ or die "Not a date";
my $time = timelocal($6,$5,$4,$3,$2,$1);
$time = $time+21600;
my ($a,$b,$c,$d,$e,$f) = localtime($time);
print "$1-$e-$d $cba";

khandielas

UID: 1557
帖子: 117
积分: 269
在线时间: 19 小时

7^# khandielas 发表于 2008-09-13 00:57

Class:ate 好像可以算这个，你可以看看

一般如果是简单的自己写几个function能用也就够了。

Perl小手

UID: 42937
帖子: 123
积分: 282
在线时间: 20 小时

8^# Perl小手发表于 2008-09-16 13:14

Time:arseDate and Date::Format

liuxl2008

UID: 15573
帖子: 1
积分: 2
在线时间: 10 分钟

9^# liuxl2008 发表于 2008-09-17 18:51

第一次发帖子，这个论坛的人真是太友好了。谢谢各位的意见！

need2login

UID: 47068
帖子: 147
积分: 338
在线时间: 1 天 5 小时

10^# need2login 发表于 2008-09-18 14:04

Date::Calc很好用