my $csv_o = Text::CSV_XS->new ({ binary => 1, sep_char => "\t", auto_d
+iag => 1, eol => $/ });
open my $fhv, ">", $file_to_parse_valid or error ("Cannot open file
+for write: $!");
open my $fhi, ">", $file_to_parse_invalid or error ("Cannot open file
+for write: $!");
while (…) {
if ("valid") {
$csv_o->print ($fhv, [
$chu, $dev, $development_name, $bldg_no, $bldg_name, $unit
+_id, $proj,
$proj_name, $bdsz, $st_no, $street_name, $apt_no, $p_code,
+ $un_st, $mkt,
$max_rent, $fut_movein, $p, $last_move_in, $last_move_out,
+ $pgm, $clt_no,
$mgr_cd, $manager, $unit_status_dt, $cont_occ_dt, $pending
+_move_out_dt,
$unit_status_desc ]);
}
else {
$csv_o->print ($fhi, [
$chu, $dev, $development_name, $bldg_no, $bldg_name, $unit
+_id, $proj,
$proj_name, $bdsz, $st_no, $street_name, $apt_no, $p_code,
+ $un_st, $mkt,
$max_rent, $fut_movein, $p, $last_move_in, $last_move_out,
+ $pgm, $clt_no,
$mgr_cd, $manager, $unit_status_dt, $cont_occ_dt, $pending
+_move_out_dt,
$unit_status_desc ]);
}
Enjoy, Have FUN! H.Merijn
|