>
> >
> > I need to do something, but being new to Perl I'm not sure it's possible
> or how to do it. I need to remove lines of information from a text file
> based on information in another file. The first file contains information
> about some business transactions, each line describing one transaction. The
> second file is a log file reporting errors occurred during some processing
> done on the first file. The log file identifies each transaction that
> failed by its line number in the transaction file. The following is a sample
> of information in each file
> >
> > ---------- sample log file data ----------
> > Line no: 1, Field no 5: , Field name: Amount
> > Contents: "L8G 4A7"
> > Error: Only digits and one point allowed
> > ------------------------------------------------
> > Sample transaction file data:
> >
> > "C1","MA00000000000025610","4111111111111111",...etc.
> > ------------------------------------------------------------
> >
> > I think I need to extract the line number from log file and use it like an
> index to the transaction file. I've already done the first part (extract the
> number)
A good option is to form a hash with the numbers as the hash keys
For e.g. if the error log file reports the lines 1, 3, 23, 32 to have failed
form a hash with keys 1, 3, 23, 32 and assign them a true value.
> but don't know how to proceed from there.
Loop through the transaction file
open (TRANSFILE, $your_transaction_file_name) or
die "open failed on transaction file : $!\n";
open (TMPTRANSFILE, "> temp_trans.txt") or
die "open failed in write mode for temp_trans.txt : $!\n";
while (<TRANSFILE>) {
# $. will contain the current line being processed (perldoc perlvar)
print TMPTRANSFILE unless ($err_line_nums{$.})
#err_line_nums is the hash with the error line numbers as keys
}
close (TRANSFILE);
close (TMPTRANSFILE);
rename ($your_transaction_file_ name, "$your_transaction_file_name.old");
#Backup your original file, unlink it if you don't want to
rename ("temp_trans.txt", $your_transaction_file_name);
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
