怎么求兩個日期中間的間隔日期？

sunzhiguolu

回復(fù) 10# 賽萌
不是 perl 實現(xiàn)不了, 而是有些條件并不是很清晰, 未能找到合適的鍵. 而且有部分?jǐn)?shù)據(jù)格式不一致, 這倒是給處理增加了難度.

   

sunzhiguolu

我查了下, 主要問題集中在第二列.

1. 443237          17      0       生日特禮        2016-03-07 12:25:24     2016-03-14 12:25:24 MissIndex=>1,
   
2. 756903          8       1       生日特禮        2016-03-07 21:01:16     2016-03-14 21:01:16 MissIndex=>1,
   
3. 529843          24      1       生日特禮        2016-03-07 23:46:07     2016-03-14 23:46:07 MissIndex=>1,
   
4. 77812           23      0       生日特禮        2016-03-08 14:23:52     2016-03-15 14:23:52 MissIndex=>1,
   
5. 690772          21      1       生日特禮        2016-03-08 22:06:52     2016-03-15 22:06:52 MissIndex=>1,
   
6. 54815           10      1       生日特禮        2016-03-08 23:08:16     2016-03-15 23:08:16 MissIndex=>1,
   
7. 778466          19      1       生日特禮        2016-03-09 06:25:43     2016-03-16 06:25:43 MissIndex=>1,
   
8. 501329          22      1       生日特禮        2016-03-09 14:17:30     2016-03-16 14:17:30 MissIndex=>1,
   
9. 179357          15      1       生日特禮        2016-03-09 21:07:08     2016-03-16 21:07:08 MissIndex=>1,
   
10. 662143          19      1       生日特禮        2016-03-10 08:15:30     2016-03-17 08:15:30 MissIndex=>1,
    
11. 653901          14      1       生日特禮        2016-03-10 09:50:30     2016-03-17 09:50:30 MissIndex=>1,
    
12. 211430          19      1       生日特禮        2016-03-10 10:23:46     2016-03-17 10:23:46 MissIndex=>1,
    
13. 1132            3       0       3元無門檻優(yōu)惠券 2016-03-10 16:01:04     2016-03-17 16:01:04 MissIndex=>1,
    
14. 1366            3       1       3元無門檻優(yōu)惠券 2016-03-10 16:01:07     2016-03-17 16:01:07 MissIndex=>1,
    
15. 1132            3       1       3元無門檻優(yōu)惠券 2016-03-10 16:01:28     2016-03-17 16:01:28 MissIndex=>1,
    
16. 1366            3       1       3元無門檻優(yōu)惠券 2016-03-10 16:02:56     2016-03-17 16:02:56 MissIndex=>1,
    
17. 231417          3       1       3元無門檻優(yōu)惠券 2016-03-10 16:03:12     2016-03-17 16:03:12 MissIndex=>1,
    
18. 1132            3       1       3元無門檻優(yōu)惠券 2016-03-10 16:03:31     2016-03-17 16:03:31 MissIndex=>1,
    
19. 231417          3       1       3元無門檻優(yōu)惠券 2016-03-10 16:03:39     2016-03-17 16:03:39 MissIndex=>1,
    
20. 231417          3       1       3元無門檻優(yōu)惠券 2016-03-10 16:04:08     2016-03-17 16:04:08 MissIndex=>1,
    
21. 1262            3       1       3元無門檻優(yōu)惠券 2016-03-10 16:21:17     2016-03-17 16:21:17 MissIndex=>1,
    
22. 868962          3       1       3元無門檻優(yōu)惠券 2016-03-10 16:22:24     2016-03-17 16:22:24 MissIndex=>1,
    
23. 3285            3       1       3元無門檻優(yōu)惠券 2016-03-10 17:19:53     2016-03-17 17:19:53 MissIndex=>1,
    
24. 3365            3       1       3元無門檻優(yōu)惠券 2016-03-10 17:52:11     2016-03-17 17:52:11 MissIndex=>1,
    
25. 241567          17      1       生日特禮        2016-03-11 08:11:49     2016-03-18 08:11:49 MissIndex=>1,
    
26. 707166          11      1       生日特禮        2016-03-12 00:11:41     2016-03-19 00:11:41 MissIndex=>1,
    
27. 73863           11      1       生日特禮        2016-03-12 00:42:19     2016-03-19 00:42:19 MissIndex=>1,
    
28. 315082          5       1       生日特禮        2016-03-12 07:02:20     2016-03-19 07:02:20 MissIndex=>1,
    
29. 351587          18      0       生日特禮        2016-03-12 08:09:38     2016-03-19 08:09:38 MissIndex=>1,
    
30. 30027           11      0       生日特禮        2016-03-12 09:14:02     2016-03-19 09:14:02 MissIndex=>1,
    
31. 452351          5       1       生日特禮        2016-03-12 09:16:44     2016-03-19 09:16:44 MissIndex=>1,
    
32. 895650          14      0       生日特禮        2016-03-12 10:40:21     2016-03-19 10:40:21 MissIndex=>1,
    
33. 121916          11      1       生日特禮        2016-03-12 20:25:08     2016-03-19 20:25:08 MissIndex=>1,
    
34. 267709          21      1       生日特禮        2016-03-13 08:02:15     2016-03-20 08:02:15 MissIndex=>1,
    
35. 522476          5       1       生日特禮        2016-03-13 21:47:43     2016-03-20 21:47:43 MissIndex=>1,
    
36. 281901          5       1       生日特禮        2016-03-14 08:25:59     2016-03-21 08:25:59 MissIndex=>1,
    
37. 656921          21      1       生日特禮        2016-03-14 09:20:05     2016-03-21 09:20:05 MissIndex=>1,
    
38. 35379           6       1       生日特禮        2016-03-14 13:14:07     2016-03-21 13:14:07 MissIndex=>1,
    
39. 516361          22      1       生日特禮        2016-03-14 14:24:29     2016-03-21 14:24:29 MissIndex=>1,
    
40. 529546          11      1       生日特禮        2016-03-14 21:13:29     2016-03-21 21:13:29 MissIndex=>1,
    
41. 189474          18      1       生日特禮        2016-03-15 00:04:45     2016-03-22 00:04:45 MissIndex=>1,
    
42. 410548          12      1       生日特禮        2016-03-15 11:48:38     2016-03-22 11:48:38 MissIndex=>1,
    
43. 551424          6       1       生日特禮        2016-03-15 23:08:00     2016-03-22 23:08:00 MissIndex=>1,
    
44. 209302          24      0       生日特禮        2016-03-16 00:10:16     2016-03-23 00:10:16 MissIndex=>1,
    
45. 178246          19      0       生日特禮        2016-03-16 00:49:01     2016-03-23 00:49:01 MissIndex=>1,
    
46. 260674          25      0       生日特禮        2016-03-16 15:59:52     2016-03-23 15:59:52 MissIndex=>1,
    
47. 277951          25      1       生日特禮        2016-03-16 19:09:33     2016-03-23 19:09:33 MissIndex=>1,
    
48. 27918           6       1       生日特禮        2016-03-17 04:29:54     2016-03-24 04:29:54 MissIndex=>1,
    
49. 411083          10      0       生日特禮        2016-03-17 08:14:47     2016-03-24 08:14:47 MissIndex=>1,
    
50. 518526          21      1       生日特禮        2016-03-17 15:33:52     2016-03-24 15:33:53 MissIndex=>1,
    
51. 435823          12      1       生日特禮        2016-03-17 16:54:59     2016-03-24 16:55:00 MissIndex=>1,
    
52. 148980          10      0       生日特禮        2016-03-18 15:01:40     2016-03-25 15:01:40 MissIndex=>1,
    
53. 654819          20      1       生日特禮        2016-03-18 15:53:27     2016-03-25 15:53:28 MissIndex=>1,
    
54. 454772          20      1       生日特禮        2016-03-18 22:57:16     2016-03-25 22:57:16 MissIndex=>1,
    
55. 442462          21      1       生日特禮        2016-03-18 23:02:20     2016-03-25 23:02:20 MissIndex=>1,
    
56. 400820          21      1       生日特禮        2016-03-19 07:49:48     2016-03-26 07:49:48 MissIndex=>1,
    
57. 524311          25      0       生日特禮        2016-03-20 04:52:31     2016-03-27 04:52:31 MissIndex=>1,
    
58. 134446          15      0       生日特禮        2016-03-20 08:47:07     2016-03-27 08:47:07 MissIndex=>1,
    
59. 641344          10      0       生日特禮        2016-03-20 12:12:12     2016-03-27 12:12:12 MissIndex=>1,
    
60. 435679          13      1       生日特禮        2016-03-20 12:32:21     2016-03-27 12:32:21 MissIndex=>1,
    
61. 491757          9       1       生日特禮        2016-03-21 11:21:18     2016-03-28 11:21:18 MissIndex=>1,
    
62. 171692          21      0       生日特禮        2016-03-21 11:52:18     2016-03-28 11:52:18 MissIndex=>1,
    
63. Stat <62> lines.

復(fù)制代碼

大家進(jìn)行處理的時候, 還請多加小心才好...

賽萌

回復(fù) 12# sunzhiguolu


    謝謝。不過你的說是什么意思？這個東西不能寫哈希，因為都有重復(fù)，沒有一列里的內(nèi)容不重復(fù)的

RE_HASH

Date::Calc::Iterator

sunzhiguolu

回復(fù) 13# 賽萌
數(shù)據(jù)文件是你提供的, 找到一個解決方案是你的期望.
不知道現(xiàn)在的你如何打算?

   

賽萌

回復(fù) 15# sunzhiguolu

我給上司說perl實現(xiàn)不了
   

RE_HASH

回復(fù) 14# RE_HASH

1。用1樓的數(shù)據(jù)
2。CPAN 安裝Date::Calc::Iterator模塊
-------------------
   
use Date::Calc::Iterator;

while (<>)
{
  s/  +/\t/g;
  my @F = split /\t/, $_;
  my $key = join "\t" , @F[0,1,3];
  
  my @start = /(\d{4})-(\d{2})-(\d{2})/;
  my @end = /\G.*(\d{4})-(\d{2})-(\d{2})/;
  
  my $i1 = Date::Calc::Iterator->new(from => \@start , to => \@end);
  while ($D = $i1->next)
  {
          my $Date = join '-', @$D;
          $Date =~ s/-(\d)\b/-0\1/g;
          $OUT->{$Date}->{$key} ++;
  }
}

foreach  $D (sort keys %$OUT)
{
  foreach  $key (sort keys %{$OUT->{$D}})
  {
          print "$D\t$key\t$OUT->{$D}->{$key}\n" ;
  }   
}


——————
$> perl dates.pl zz
2016-03-07      25      2       二元代金券      8
2016-03-08      25      2       二元代金券      8
2016-03-09      25      2       二元代金券      8
2016-03-10      25      2       二元代金券      8
2016-03-11      25      2       二元代金券      8
2016-03-12      25      2       二元代金券      8
2016-03-13      25      2       二元代金券      8
2016-03-14      25      2       二元代金券      8

賽萌

回復(fù) 17# RE_HASH


    哇咔咔，好厲害，謝謝。

iamlimeng

Perl非常擅長干這種活！

賽萌

回復(fù) 19# iamlimeng


   啊？？？真的嗎，原諒我，我還是個低級的菜鳥，還請大神指點一二，謝謝。