You should, ah, ace that homework with the kind of help you got on this one :-)
On Wed, 6 Oct 2004 09:06:52 +0800, Bee <[EMAIL PROTECTED]> wrote: > Try this and hope this would help more.... *Code not tested* > > Suppose data in cancel.txt : > 123456|X > 234567|X > > Suppose data in falldata.tmp : > 028076|Blood|Sept 18|Sat|San Francisco|028086.html|1|275|0|| > 123456|Quake|Sept 19|Sun|Home|028087.html|1|275|0|| > 234567|Doom|Sept 20|Mon|Page Up|028088.html|1|275|0|| > 345678|Neverhood|Sept 21|Tue|Ctrl-C|028089.html|1|275|0|| > > #Code > use strict; > > my @cancel ; > open C, "cancel.txt" or die "$!"; > while (<C>) { > my ( $code, $waste ) = split /\|/, $_ ; > push @cancel , $code > } close C; > > my %course ; > open F, "falldata.tmp" or die "$!"; > while (<F>) > { chomp ; > my @detail = split /\|/, $_; > my $code = shift @detail; > $course{$code} = [EMAIL PROTECTED] > } close F; > > for my $code (keys %course) > { $course{$code}[8] = "C" if ( grep /$code/, @cancel ) ; > my $status = $course{$code}[8] ? "CANCELED" : "OKAY"; > print "\n\n --- $status -------- \n"; > print "$_ : $course{$code}[$_] \n" for (0..8) > } > > HTH, > Bee > > > > > ----- Original Message ----- > From: <[EMAIL PROTECTED]> > To: <[EMAIL PROTECTED]> > Sent: Wednesday, October 06, 2004 4:32 AM > Subject: newbie stuck in a HOA > > > Hi all, > > > > I have a flatfile database (falldata.tmp) that contains information about > > all the courses offered > > this includes: course number, course title, start date, day of week, > > location, html link, section number, fee1, fee2, and status. > > > > I have another file (cancel.txt) which contains a list of the courses that > > are canceled. > > > > What I want to do is change the status to "C" in the flatfile database, if > > it is in the cancel file. > > > > The problem I'm having is that > > I'm getting duplicate results and also incorrect results as the code isn't > > distinguishing between a canceled class and one that's not. > > > > > > Any ideas on where I'm going wrong. > > Thanks in advance, > > Pam > > > > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > <http://learn.perl.org/> <http://learn.perl.org/first-response> > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>