利用perl计算考勤表并且输出excel表格

jrgf

　　需要处理的excel的格式如下

　　转换器代码如下（防止中文乱码）(作者为:flw)：
　　

• package MyExcelFormatter;
  
• use strict;
  
• use warnings;
  
• use base qw(Spreadsheet::ParseExcel::FmtDefault);
  
• use Encode::CN;
  
• use Encode qw(from_to);
  
• sub new() {
  
•     return bless {};
  
• }
  
• sub TextFmt( $;$ ) {
  
•     my $this = shift;
  
•     my ($value, $code) = @_;
  
•     if ( defined $code and $code eq 'ucs2' ){
  
•         from_to( $value, 'ucs2', 'gb2312' );
  
•     }
  
•     return $value;
  
• }
  
• 1;
  

　　

　　

将上面的代码复制到你的perl  lib库下 命名为MyExcelFormatter.pm
还需要安装的模块有：
Spreadsheet::ParseExcel（读取execl模块）
Excel::Writer::XLSX(导出excel所用，支持2007)
安装方法：
win下：
ppm install 模块名
主程序：　　

• #!/usr/bin/perl
  
• use strict;
  
• use warnings;
  
• use Spreadsheet::ParseExcel;
  
• use MyExcelFormatter;  #flw大神写的中文转化模块。
  
• use Data::Dumper;
  
• use Time::Local;
  
• use POSIX qw{strftime};
  
• use Excel::Writer::XLSX;
  
• use Encode ;
  
• sub H{
  
•     my $text = shift;
  
•     return  decode('gb2312',$text);  # 进行转码
  
• }
  
• my (%hash,%mon);
  
• my $fmt = new MyExcelFormatter();
  
• my $file = 'kaoqin.xls';
  
• my $xls = Spreadsheet::ParseExcel::Workbook->Parse( $file, $fmt );
  
• my @workSheet = @{ $xls->{Worksheet} };
  
• open  FH,">douzi.txt" or die "$!";
  
• foreach my $sheet ( @workSheet ){
  
•     my $sheetName = $sheet->get_name();
  
•     my ( $minRow, $maxRow ) = $sheet->row_range();  #索引所有的行
  
•     my ( $minCol, $maxCol ) = $sheet->col_range();   #索引所有的列
  
•     foreach my $row ( 1 .. $maxRow ){           #此处的行 从第二行开始
  
•         my $tmp;
  
•         foreach my $col ( $minCol .. $maxCol ){
  
•             my $cell = $sheet->get_cell( $row, $col );
  
•             next unless $cell;
  
•                 $tmp .= $cell->value." ";
  
•         }
  
•         my($name,$date,$time) = (split/\s+/,$tmp)[1,3,4];   #提取姓名，日期，时间
  
•        "$date $time" =~ /(\d+)-(\d+)-(\d+)\s+(\d+):(\d+):(\d+)/;
  
•     my $time_unix = timelocal($6,$5,$4,$3,$2-1,$1);
  
•     my $time_9clock = timelocal(0,30,9,$3,$2-1,$1);
  
•     push @{$hash{$name}{$date}},$time_unix,$time_9clock;
  
•     $mon{$date}++;   #此处可以自己定义上班的时间%mon;我这里直接读取了一个月所有的时间。
  
• }
  
• }
  
• my $workbook = Excel::Writer::XLSX->new('test.xlsx');  #准备写入excel
  
• map{ my $name=$_;my $num=1;
  
•    my  $worksheet = $workbook->add_worksheet(H($name));  #以每个人作为一个工作簿
  
•    $worksheet->write_row("B1",[H('上班时间'),H('下班时间'),H('工作时间')]);
  
•     for (map{$_->[0]}sort{$a->[2]  $b->[2]||$a->[3] $b->[3]}map{[$_,split/-/]}keys %mon){
  
•         #按照日期时间排序
  
•         my @arr;
  
•         $num++;  #定义行号
  
•         push @arr,$_;
  
•          if (defined($hash{$name}{$_}->[0])){
  
•         if($hash{$name}{$_}->[0] >= $hash{$name}{$_}->[-1]){  #定义早晨打卡时间，如果大于则记为迟到
  
•             push @arr,H("迟到");
  
•         }else{
  
•             push @arr,strftime("%Y-%m-%d %H:%M:%S\t",localtime($hash{$name}{$_}->[0]));
  
•         }
  
•         my  $work_night = strftime("%Y-%m-%d %H:%M:%S\t",localtime($hash{$name}{$_}->[-2])); #定义下班时间
  
•         my $work_time = $hash{$name}{$_}->[-2]-$hash{$name}{$_}->[0];#时间戳计算
  
•         my $work_hours =  $work_time/3600;   #工作时间长度
  
•         if($work_time0){  #如果少于工作的时间则为早退
  
•             push @arr,$work_night;
  
•               push @arr,H(sprintf("早退,实际工作时间:%2.1f\n",$work_hours));
  
•         }elsif($work_time == 0 and $hash{$name}{$_}->[-2][-1]+10800) ){
  
•            #如果一天只打了一次卡，且在早晨12点之前打过卡，则定义为下班未打卡
  
•             push @arr ,H('下班未打卡');
  
•         }
  
•         else{
  
•             push @arr,$work_night;
  
•             push @arr,H(sprintf("%2.1f\n",$work_hours));
  
•         }
  
•          }else{
  
•             push @arr,H('缺勤');  #没有打过一次卡的记为缺勤
  
•          }
  
•          $worksheet->write_row("A$num",\@arr);
  
•     }
  
•     }keys %hash;
  
• close FH;
  

　　

　　输出excel