bin/work/anwesenheit_klausur

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 open(CSV_FILE, ">data.csv");
   6
   7 my $header_done;
   8
   9 print CSV_FILE "Name,Vorname,Matrikel,Wid.,prf\n";
  10
  11 while (<*.xls>) {
  12     my $fileName = $_;
  13     my @file = `xls2csv $fileName 2>&1` ;
  14
  15     my $cnt = 0;
  16     while (<@file>) {
  17         $cnt++;
  18         if ($cnt < 4) { next; }
  19         if ( m/HISsheet/ ) { next; }
  20
  21         my @data = split(",", $_);
  22 #         print "@data";
  23         my @orderedData = @data[2,1,0,4];
  24         push(@orderedData, substr($fileName,0, -4));
  25 #         print "@orderedData";
  26 #         print CSV_FILE "$_," . substr($fileName,0, -4) . "\n";
  27         print CSV_FILE join(",", @orderedData) . "\n";
  28     }
  29 }
  30
  31 close(CSV_FILE);