#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV_XS;
my $NUMBER=0;
my $REQDATE=1;
my $SCHOOL=2;
my $PROF=3;
my $EMAIL=4;
my $REQUEST=5;
my $csv_emailheader = Text::CSV_XS->new({'sep_char'
=> ':'
});
my $csv = Text::CSV_XS->new({'sep_char' => '='
});
my $outcsv = Text::CSV_XS->new();
my $infile = 'chinaapprovals.msg';
system("dir");
open (INFD, "<", $infile) or die $!;
my $outfile='outputfile.csv';
open (OUTFD, ">", $outfile) or die $!;
my @array;
my $id=1;
$array[$NUMBER]='number';
$array[$REQDATE]='req date';
$array[$SCHOOL]='school';
$array[$PROF]='prof';
$array[$EMAIL]='email';
$array[$REQUEST]='request';
$outcsv->combine(@array);
print OUTFD $outcsv->string()."\n";
my @columns;
while (<INFD>) {
if ($csv->parse($_)) {
@columns = $csv->fields();
if($columns[0] =~ /^ firstname
$/){
$array[$PROF]=$columns[1];
}
if($columns[0] =~ /^ lastname $/){
$array[$PROF]=$array[$PROF].$columns[1];
}
if($columns[0] =~ /^ email $/){
$array[$EMAIL]=$columns[1];
}
if($columns[0] =~ /^ company $/){
$array[$SCHOOL]=$columns[1];
}
if($columns[0] =~ /^ req_software
$/){
if ($columns[1] =~ /No
softwareI/)
{
$array[$REQUEST]="";
}else{
$array[$REQUEST]="SW".$columns[1];
}
}
if($columns[0] =~ /^ software_qty
$/){
if ($columns[1] =~
/[0-9]+/)
{
$array[$REQUEST]=$array[$REQUEST].$columns[1]."Lc";
}
}
if($columns[0] =~ /^ req_board
$/){
if ($columns[1] =~ /No
boards/){
$array[$REQUEST]=$array[$REQUEST]."";
}else{
if ($columns[1] =~
/Digilent S3E/){
$array[$REQUEST]=$array[$REQUEST]." S3E ";
}else{
$array[$REQUEST]=$array[$REQUEST]."";
}
}
}
if($columns[0] =~ /^ board_qty
$/){
if($columns[1] =!
/"How Many Boards"/){
$array[$REQUEST]=$array[$REQUEST].$columns[1]."pcs";
}
}
if($columns[0] =~ /^
other_products $/){
$array[$REQUEST]=$array[$REQUEST]." ".$columns[1];
}
if($columns[0] =~ /^ Comments $/){
$array[$REQUEST]=$array[$REQUEST]." ".$columns[1];
}
}
if($csv_emailheader->parse($_)) {
@columns =
$csv_emailheader->fields();
if($columns[0] =~
/X-OriginalArrivalTime/){
$array[$REQDATE]=
$columns[1];
$array[$REQDATE]=~
s/..$//;
$array[$REQDATE]=~
s/ /-/;
$array[$REQDATE]=~
s/^-//;
$array[$REQDATE]=~
s/-$//;
$array[$NUMBER]=$id++;
$outcsv->combine(@array);
print OUTFD
$outcsv->string()."\n";
}
}
}
close INFD;
close OUTFD;
print "done\n";
