Help for this page

Select Code to Download


  1. or download this
    for ( keys %{$payment{$check_number}} ) {
  my $numpayment = scalar ( keys %{$payment{$check_number}{$account}} 
+);
...
      print "last record\n";
      print FH "\n";
    }
  2. or download this
      if ( ++$payment_count == $numpayments )
  3. or download this
      $payment_count++;
  if ( $payment_count == $numpayments )