In your test you are using numeric == vs eq string comparsion for one thing. Also switch the print to: print OUTFILE1 $rec;
Wags ;) -----Original Message----- From: Mark Weisman [mailto:[EMAIL PROTECTED]] Sent: Saturday, November 03, 2001 11:09 To: 'Beginners@Perl. Org (E-mail)' Subject: Array with selected records. Hello all: Hey I'm wanting to populate an array with only select records, but I'm not sure how (more importantly when) to use a comparison piece. Please help me if you can: Open (INFILE, "<something.txt") Or die "Error opening something.txt. $!, stopped"; @records = <INFILE> close(INFILE); foreach my $rec (@records) { chomp($rec); ($val, $val1, $val2, etc.....) = split(/,/, $rec); This is my opening and building the array from a text file. However what I want to be able to do, is open the text file, then separate out the records based on one value (example $val1) and build another text file based on just the records that match the criteria. Open (INFILE, "<something.txt") Or die "Error opening something.txt. $!, stopped"; @records = <INFILE> close(INFILE); foreach my $rec (@records){ open (OUTFILE1, ">firstchoice.txt") or die "Error opening firstchoice.txt. $!, stopped"; if ($val1 == "Bill Smith") print $rec (OUTFILE); } } I'm loosing my mind here, I just want the records that match the criteria to be dumped into the OUTFILE. Any and all assistance would be greatly appreciated. Thank you, Mark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]