Perl 时间：将两个不同对象的日期和时间组合在一起

我创建了两个Time:：Piece对象。我想将object1的日期连接到object2的时间，即

object1=2014-05-09
object2=12:34:40
object3=2014-05-09T12:34:40

有人有什么提示吗，如何使用Time:：Piece实现这一点？ 谢谢

不是一门特别聪明的课程。它的大多数方法都是以不同的格式获取组件

但是您可以从$object1获取日期

my $date = $object1->date;

您可以从$object2获得时间

my $time = $object2->time;

如果您只想将新时间作为字符串，那么您的工作就完成了

my $object3 = $date . 'T' . $time;

但是如果您想要一个新的Time:：Piece对象，可以使用类的

strTime

方法创建一个

my $object3 = Time::Piece->strptime($date . 'T' . $time, '%Y-%m-%dT%H:%M:%S');

---

请用你所问的语言标记你的问题。我从未听说过《时代》：Piece，但这很可能是因为您使用的是我不使用的语言。