Perl - 创建日期范围，查看3个字段

Question

我有3列数据：

Item    |   CreateDate  | Version | 
ABC  |     1/1/2010  |  X      |
ABC  |     3/15/2010 |  XB     |
BBB  |     2/15/2010 |  X      |
BBB  |     6/15/2010 |  X      |

我如何填充另外两个名为Version Start＆amp; amp;版本结束，根据CreateDates计算给定项目的版本的开始日期和版本的结束日期。

Item    |   CreateDate  | Version   |   Version Start   |   Version End
ABC  |     1/1/2010  |  X        |     1/1/2010      |    3/14/2010
ABC  |     3/15/2010 |  XB       |     3/15/2010     |    (04/29/2010)Today
BBB  |     2/15/2010 |  X        |     2/15/2010     |    (04/29/2010)Today  
BBB  |     6/15/2010 |  X        |     2/15/2010     |    (04/29/2010)Today  

Answer 1

您可以使用Date :: Calc的Add_Delta_Days函数来确定版本结束日期，假设它是版本开始日期之后的特定天数。