next if ( defined $HashExist{$_} );
print FILE "$new_oid\n";
}
Wags ;)
-Original Message-
From: Jason Cruces [mailto:[EMAIL PROTECTED]]
Sent: Friday, May 04, 2001 09:30
To: [EMAIL PROTECTED]
Subject: appending unique entries to a text file in perl
Hello,
I'm pretty
On May 4, Jason Cruces said:
>1. Open two files, one to be read from (call it file1)
>and another to be written to (file2)
Ok, you've got this down fine.
>2. Both files will contain a list of entries (some
>will be duplicates). If file1 contains an entry that
>is not in file2, append it to file
> Here is what I have so far:
>
> open (FILE, ">>file2") || die "cannot open file2\n";
> open (OIDFILE, "file1") || die "cannot open file1\n";
> while () {
> $new_oid = $_;
> while () {
You opened FILE for output here.
besides this is not too efficient, because you read the whole file2 over and
o
Hello,
I'm pretty new to Perl and I am running into a problem
that I think should be pretty easy to fix but I cannot
get the syntax right.
I am trying to write a script that will:
1. Open two files, one to be read from (call it file1)
and another to be written to (file2)
2. Both files will contai