请教一个的排班表查询

lu_777

一个小组里有4个人(a, b, c,d),  现需要安排工作给这个四位轮流值班， 值班时间为周一到周日，起始日期时间可以自己设定。
需求脚本能输入年月日就可以查出是哪位在值班中。

tc1989tc

1. #!/bin/perl
   
2. use strict;
   
3. use Time::Local;
   
4. 
   
5. my @startTime=(2015,9,20);
   
6. 
   
7. my $startSeconds=timelocal(0,0,0,$startTime[2],$startTime[1],$startTime[0]);
   
8. my @person=('a','b','c','d');
   
9. 
   
10. while (<STDIN>) {
    
11.         chomp;
    
12.         my ($year,$month,$days)=split /:/;
    
13.         my $endSeconds=timelocal(0,0,0,$days,$month,$year);
    
14.         my $diffTime = ($endSeconds - $startSeconds)/(24 * 60* 60);
    
15.         my $index = $diffTime / $#person;
    
16.         print "person $person[$index + 1]\n";
    
17. }

复制代码

lu_777

回复 2# tc1989tc

谢谢，  
但这个脚本少了一个条件， 就是值班时间是在周一至周日为一个周期，  比如起始日期在9月22日周二， 那么a的值班时间就是9月22日到9月27日（周二到周日）就转换为b值班了。



   

tc1989tc

1. #!/usr/local/bin/perl
   
2. use strict;
   
3. use Time::Local;
   
4. use Time::Seconds;
   
5. 
   
6. my @startTime=(2015,9,20,7);
   
7. 
   
8. my $startSeconds=timelocal(0,0,0,$startTime[2],$startTime[1],$startTime[0]);
   
9. my $startWeekday=Time::Seconds->new($startSeconds);
   
10. my @person=('a','b','c','d');
    
11. my $index = 0;
    
12. while (<STDIN>) {
    
13.       chomp;
    
14.       my ($year,$month,$days)=split /:/;
    
15.       my $endSeconds=timelocal(0,0,0,$days,$month,$year);
    
16.       my $endWeekday = Time::Seconds->new($endSeconds);
    
17.       my $diffTime = $endWeekday - $startWeekday;
    
18.       if ($diffTime->days > (7 - $startTime[3])) {
    
19.         my $diffWeeks = int(($diffTime->days - (7 - $startTime[3]) + 6)/7);
    
20.         $index = ($diffWeeks) %($#person + 1);
    
21.         print "diffweek $diffWeeks \n";
    
22.       }
    
23.       print "person $person[$index]\n";
    
24. }

复制代码

lu_777

回复 4# tc1989tc

7 - $startTime[3]  为啥不直接赋值为0