
Tejas
User
Nov 15, 2013, 8:21 AM
Post #5 of 14
(4572 views)
|
Re: [FishMonger] alternative , faster and optimal approach to if condition
[In reply to]
|
Can't Post
|
|
hi my $GB_BACKFILL = "$pwd/BADDEBT-BACKFILL_FILE-GB"; #-$time"; my $DE_BACKFILL = "$pwd/BADDEBT-BACKFILL_FILE-DE"; my $FR_BACKFILL = "$pwd/BADDEBT-BACKFILL_FILE-FR"; my $ES_BACKFILL = "$pwd/BADDEBT-BACKFILL_FILE-ES"; my $IT_BACKFILL = "$pwd/BADDEBT-BACKFILL_FILE-IT"; my $GB_MISSING_ESID = "$pwd/BADDEBT-MISSING_ESID_FILE-GB"; my $DE_MISSING_ESID = "$pwd/BADDEBT-MISSING_ESID_FILE-DE"; my $FR_MISSING_ESID = "$pwd/BADDEBT-MISSING_ESID_FILE-FR"; my $ES_MISSING_ESID = "$pwd/BADDEBT-MISSING_ESID_FILE-ES"; my $IT_MISSING_ESID = "$pwd/BADDEBT-MISSING_ESID_FILE-IT"; open (GB_MISSING_ESID, "> $GB_MISSING_ESID") or die "unable to open output file: $!"; open (DE_MISSING_ESID, "> $DE_MISSING_ESID") or die "unable to open output file: $!"; open (FR_MISSING_ESID, "> $FR_MISSING_ESID") or die "unable to open output file: $!"; open (ES_MISSING_ESID, "> $ES_MISSING_ESID") or die "unable to open output file: $!"; open (IT_MISSING_ESID, "> $IT_MISSING_ESID") or die "unable to open output file: $!"; open (GB_BACKFILL, "> $GB_BACKFILL") or die "unable to open output file: $!"; open (DE_BACKFILL, "> $DE_BACKFILL") or die "unable to open output file: $!"; open (FR_BACKFILL, "> $FR_BACKFILL") or die "unable to open output file: $!"; open (ES_BACKFILL, "> $ES_BACKFILL") or die "unable to open output file: $!"; open (IT_BACKFILL, "> $IT_BACKFILL") or die "unable to open output file: $!"; I have opened all the files first and then while (my $line=<BADDEBT>) { chomp; my @row = split (",",$line); $date = $row[1]; $esid = $row[4]; $amount = $row[5]; $ppcl_id=$row[8]; $currency=$row[6]; #send the esid to query for retriving customerid my @cust_idd = $session->array_for_cursor('get_digital_bad_debt_data',0,$esid); chomp; $custid = $cust_idd[0]; if ($custid) { if($amount eq 0 ) { print "For $esid -> Amount is $amount \n"; print ZERO_LOG "$custid|$date|391|$esid|$amount|$currency|$ppcl_id|8\n" } else { if($ppcl_id == 3) { print GB_BACKFILL "$custid|$date|391|$esid|-$amount|$currency|$ppcl_id|8\n "; } elsif($ppcl_id==4) { print DE_BACKFILL "$custid|$date|391|$esid|-$amount|$currency|$ppcl_id|8\n"; } elsif($ppcl_id==5) { print FR_BACKFILL "$custid|$date|391|$esid|-$amount|$currency|$ppcl_id|8\n "; } elsif ($ppcl_id==44551) { print ES_BACKFILL "$custid|$date|391|$esid|-$amount|$currency|$ppcl_id|8\n"; } elsif($ppcl_id == 35691) { print IT_BACKFILL "$custid|$date|391|$esid|-$amount|$currency|$ppcl_id|8\n "; So I need to change all and apply what ever is suggested.
|